[open-ils-commits] r9127 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-24 15:58:02 -0400 (Mon, 24 Mar 2008)
New Revision: 9127

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-24 19:57:34 UTC (rev 9126)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-24 19:58:02 UTC (rev 9127)
@@ -832,7 +832,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,