[open-ils-commits] r11530 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-11 16:41:26 -0500 (Thu, 11 Dec 2008)
New Revision: 11530

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
currency type retrieval now streaming

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-12-11 19:27:13 UTC (rev 11529)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-12-11 21:41:26 UTC (rev 11530)
@@ -488,6 +488,7 @@
 __PACKAGE__->register_method(
 	method => 'retrieve_all_currency_type',
 	api_name	=> 'open-ils.acq.currency_type.all.retrieve',
+    stream => 1,
 	signature => {
         desc => 'Retrieves all currency_type objects',
         params => [
@@ -502,7 +503,7 @@
     my $e = new_editor(authtoken=>$auth);
     return $e->event unless $e->checkauth;
     return $e->event unless $e->allowed('GENERAL_ACQ');
-    return $e->retrieve_all_acq_currency_type();
+    $conn->respond($_) for @{$e->retrieve_all_acq_currency_type()};
 }
 
 sub currency_conversion_impl {