[open-ils-commits] r8903 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-07 12:18:31 -0500 (Fri, 07 Mar 2008)
New Revision: 8903

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
actually trimming the record hashes

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-07 17:15:35 UTC (rev 8902)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-07 17:18:31 UTC (rev 8903)
@@ -2487,12 +2487,12 @@
 	$log->debug("Search yielded ".scalar(@$recs)." checked, visible results with an approximate visible total of $estimate.",DEBUG);
 
 	for my $rec (@$recs[$offset .. $offset + $limit - 1]) {
-        delete $$summary_row{checked};
-        delete $$summary_row{visible};
-        delete $$summary_row{excluded};
-        delete $$summary_row{deleted};
-        delete $$summary_row{total};
-        $$summary_row{rel} = sprintf('%0.3f',$$summary_row{rel});
+        delete $$rec{checked};
+        delete $$rec{visible};
+        delete $$rec{excluded};
+        delete $$rec{deleted};
+        delete $$rec{total};
+        $$rec{rel} = sprintf('%0.3f',$$rec{rel});
 
 		$client->respond( $rec );
 	}