using arrays instead of objects in CN browsing
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 30 Dec 2005 20:11:34 +0000 (20:11 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 30 Dec 2005 20:11:34 +0000 (20:11 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2563 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm

index eb236ef..7ef8d01 100644 (file)
@@ -53,8 +53,8 @@ sub cn_browse_pagedown {
 
        my $sth = asset::call_number->db_Main->prepare($sql);
        $sth->execute($cn, $boundry_id, $cn);
-       while ( my $row = $sth->fetchrow_hashref ) {
-               $client->respond($row);
+       while ( my @row = $sth->fetchrow_array ) {
+               $client->respond([@row]);
        }
        $sth->finish;
 
@@ -113,8 +113,8 @@ sub cn_browse_pageup {
 
        my $sth = asset::call_number->db_Main->prepare($sql);
        $sth->execute($cn, $boundry_id, $cn);
-       while ( my $row = $sth->fetchrow_hashref ) {
-               $client->respond($row);
+       while ( my @row = $sth->fetchrow_array ) {
+               $client->respond([@row]);
        }
        $sth->finish;
 
@@ -192,15 +192,15 @@ sub cn_browse_target {
 
        my $sth = asset::call_number->db_Main->prepare($top_sql);
        $sth->execute($cn);
-       while ( my $row = $sth->fetchrow_hashref ) {
-               $client->respond($row);
+       while ( my @row = $sth->fetchrow_array ) {
+               $client->respond([@row]);
        }
        $sth->finish;
 
        $sth = asset::call_number->db_Main->prepare($bottom_sql);
        $sth->execute($cn);
-       while ( my $row = $sth->fetchrow_hashref ) {
-               $client->respond($row);
+       while ( my @row = $sth->fetchrow_array ) {
+               $client->respond([@row]);
        }
        $sth->finish;