From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 19 Feb 2008 23:55:56 +0000 (+0000)
Subject: minor po detail bug fixes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8c02de34392bf8e2af8da3c8d7bd4c2fc096740b;p=Evergreen.git

minor po detail bug fixes

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8791 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index 5e1732af41..6cb7fd821a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -514,7 +514,7 @@ sub currency_conversion_impl {
         from => 'acqct'
     });
 
-    return $result->{value};
+    return $result->[0]->{value};
 }
 
 
@@ -771,8 +771,8 @@ sub create_po_li_detail {
     return $e->die_event unless 
         $e->allowed('MANAGE_FUND', $fund->org, $fund);
 
-    my $fct = $e->retrieve_acq_currency_type($fund->currency_type);
-    my $pct = $e->retrieve_acq_currency_type($provider->currency_type);
+    my $fct = $e->search_acq_currency_type({code => $fund->currency_type})->[0];
+    my $pct = $e->search_acq_currency_type({code => $provider->currency_type})->[0];
     my $price = $$options{price};
 
     # create the fund_debit for this line item detail