[open-ils-commits] r13282 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-01 16:37:13 -0400 (Mon, 01 Jun 2009)
New Revision: 13282

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
if no search terms are sent, exit early

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-06-01 20:36:42 UTC (rev 13281)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-06-01 20:37:13 UTC (rev 13282)
@@ -780,6 +780,8 @@
 
     $method .= '.staff' if $self->api_name =~ /staff$/;
     $method .= '.atomic';
+                
+    return {count => 0} unless ($search_hash and $search_hash->{searches});
 
     my $search_duration;
     my $user_offset = $search_hash->{offset} || 0; # user-specified offset