[open-ils-commits] r9126 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-24 15:57:34 -0400 (Mon, 24 Mar 2008)
New Revision: 9126

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
trimming null entries from end of results array

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-24 18:24:52 UTC (rev 9125)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-24 19:57:34 UTC (rev 9126)
@@ -767,7 +767,7 @@
         last if $summary->{checked} < $PAGE_SIZE;
     }
 
-    my @results = @$all_results[$user_offset..($user_offset + $user_limit - 1)];
+    my @results = grep {defined $_} @$all_results[$user_offset..($user_offset + $user_limit - 1)];
 
     return {
         count => $est_hit_count,