[open-ils-commits] r8791 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-19 18:55:56 -0500 (Tue, 19 Feb 2008)
New Revision: 8791

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
minor po detail bug fixes

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 23:55:33 UTC (rev 8790)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 23:55:56 UTC (rev 8791)
@@ -514,7 +514,7 @@
         from => 'acqct'
     });
 
-    return $result->{value};
+    return $result->[0]->{value};
 }
 
 
@@ -771,8 +771,8 @@
     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