From d6237e4dd2a18741d6c936f62faed5c8e58d4931 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 11 Dec 2008 21:41:26 +0000
Subject: [PATCH] currency type retrieval now streaming

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11530 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index 5125386c0a..bc53664569 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -488,6 +488,7 @@ sub retrieve_funding_source_allocations {
 __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 @@ sub retrieve_all_currency_type {
     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 {
-- 
2.11.0