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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-07 12:15:35 -0500 (Fri, 07 Mar 2008)
New Revision: 8902

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
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 16:54:43 UTC (rev 8901)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-07 17:15:35 UTC (rev 8902)
@@ -2487,6 +2487,13 @@
 	$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});
+
 		$client->respond( $rec );
 	}
 	return undef;