[open-ils-commits] r13284 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-01 16:44:58 -0400 (Mon, 01 Jun 2009)
New Revision: 13284

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
make the input test a little more strict (require the presence of a search term)

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-06-01 20:37:28 UTC (rev 13283)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-06-01 20:44:58 UTC (rev 13284)
@@ -853,7 +853,10 @@
     $method .= '.staff' if $self->api_name =~ /staff$/;
     $method .= '.atomic';
                 
-    return {count => 0} unless ($search_hash and $search_hash->{searches});
+    return {count => 0} unless (
+        $search_hash and 
+        $search_hash->{searches} and 
+        scalar( keys %{$search_hash->{searches}} ));
 
     my $search_duration;
     my $user_offset = $search_hash->{offset} || 0; # user-specified offset