trimming the record hashes
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 7 Mar 2008 17:15:35 +0000 (17:15 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 7 Mar 2008 17:15:35 +0000 (17:15 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@8902 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 9ff4fc8..38a3036 100644 (file)
@@ -2487,6 +2487,13 @@ sub staged_fts {
        $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;