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

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-11-16 20:29:59 -0500 (Sun, 16 Nov 2008)
New Revision: 11232

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
Add a staff variant for open-ils.search.biblio.zstyle (so it searches for bibs with or without items)
Make our local Z39.50 catalog use the new staff variant zstyle search


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-11-17 00:10:13 UTC (rev 11231)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-11-17 01:29:59 UTC (rev 11232)
@@ -559,6 +559,12 @@
 	stream		=> 1,
 	signature	=> q/@see open-ils.search.biblio.multiclass/);
 
+__PACKAGE__->register_method(
+	method		=> 'cat_search_z_style_wrapper',
+	api_name	=> 'open-ils.search.biblio.zstyle.staff',
+	stream		=> 1,
+	signature	=> q/@see open-ils.search.biblio.multiclass/);
+
 sub cat_search_z_style_wrapper {
 	my $self = shift;
 	my $client = shift;
@@ -621,7 +627,7 @@
 	method		=> 'the_quest_for_knowledge',
 	api_name		=> 'open-ils.search.biblio.multiclass',
 	signature	=> q/
-		Performs a multi class bilbli or metabib search
+		Performs a multi class biblio or metabib search
 		@param searchhash A search object layed out like so:
 			searches : { "$class" : "$value", ...}
 			org_unit : The org id to focus the search at

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-17 00:10:13 UTC (rev 11231)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-17 01:29:59 UTC (rev 11232)
@@ -185,9 +185,9 @@
 		$logger->debug("z3950: service: $tmp_args{service}, async: $tmp_args{async}");
 
         if ($tmp_args{service} eq 'native-evergreen-catalog') { 
-            my $method = $self->method_lookup('open-ils.search.biblio.zstyle'); 
+            my $method = $self->method_lookup('open-ils.search.biblio.zstyle.staff'); 
             $conn->respond( 
-                $self->method_lookup('open-ils.search.biblio.zstyle')->run($auth, \%tmp_args) 
+                $self->method_lookup('open-ils.search.biblio.zstyle.staff')->run($auth, \%tmp_args) 
             ); 
 
         } else {