[open-ils-commits] r8246 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-20 09:03:14 -0500 (Thu, 20 Dec 2007)
New Revision: 8246

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
use staff version of the_quest_for_knowledge so we get "hidden" records

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-12-20 02:08:57 UTC (rev 8245)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-12-20 14:03:14 UTC (rev 8246)
@@ -558,7 +558,7 @@
 	$$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{pubdate} if $$args{search}{pubdate};
 	$$searchhash{searches}{keyword}{term} .= join ' ', $$searchhash{searches}{keyword}{term}, $$args{search}{item_type} if $$args{search}{item_type};
 
-	my $list = $self->the_quest_for_knowledge( $client, $searchhash );
+    my ($list) = $self->method_lookup('open-ils.search.biblio.multiclass.staff')->run( $searchhash );
 
 	if ($list->{count} > 0) {
 		$result->{count} = $list->{count};

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 02:08:57 UTC (rev 8245)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 14:03:14 UTC (rev 8246)
@@ -192,6 +192,8 @@
 	}
 
 	$logger->debug("z3950: Search Complete");
+
+    return undef;
 }