Add a staff variant for open-ils.search.biblio.zstyle (so it searches for bibs with...

Make our local Z39.50 catalog use the new staff variant zstyle search

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11232 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index a51c1e3..8424c16 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -559,6 +559,12 @@ __PACKAGE__->register_method(
        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 @@ __PACKAGE__->register_method(
        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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index b40a866..42ddf20 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -185,9 +185,9 @@ sub do_class_search {
                $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 {