From 58a801768cd65f17b152b73546e6c3b63fb42730 Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 7 Mar 2008 17:15:35 +0000 Subject: [PATCH] trimming the record hashes git-svn-id: svn://svn.open-ils.org/ILS/trunk@8902 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm | 7 +++++++ 1 file changed, 7 insertions(+) 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 9ff4fc811f..38a3036379 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm @@ -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; -- 2.11.0