actually trimming the record hashes

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8903 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index 38a3036..5e71990 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -2487,12 +2487,12 @@ 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});
+        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 );
        }