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 10f309f..da6a2ce 100644 (file)
--- 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;
 }