From: Mike Rylander <mrylander@gmail.com>
Date: Mon, 17 Oct 2011 16:27:04 +0000 (-0400)
Subject: Make the streaming version stream
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f74f5c3affd1e0a73f317a010ec9a4d9a7957a8f;p=evergreen%2Fequinox.git

Make the streaming version stream

Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index 10f309f018..da6a2cea40 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -347,7 +347,7 @@ sub targetable_holds {
     my $sth = action::hold_request->db_Main->prepare_cached($query);
     $sth->execute($check_expire);
 
-    $client->respond( $_ ) for ( $sth->fetchall_arrayref );
+    $client->respond( $_ ) while ( $sth->fetchrow_arrayref );
     return undef;
 }