more cleanup
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 15 Sep 2008 16:40:57 +0000 (16:40 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 15 Sep 2008 16:40:57 +0000 (16:40 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10593 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm

index c6939b5..4d17a7d 100644 (file)
@@ -1260,26 +1260,6 @@ sub biblio_record_to_marc_html {
 }
 
 
-=head duplicate
-__PACKAGE__->register_method(
-       method  => "retrieve_all_copy_locations",
-       api_name        => "open-ils.search.config.copy_location.retrieve.all" );
-
-my $shelving_locations;
-sub retrieve_all_copy_locations {
-       my( $self, $client ) = @_;
-       if(!$shelving_locations) {
-               $shelving_locations = $apputils->simple_scalar_request(
-                       "open-ils.cstore", 
-                       "open-ils.cstore.direct.asset.copy_location.search.atomic",
-                       { id => { "!=" => undef } }
-               );
-       }
-       return $shelving_locations;
-}
-=cut
-
-
 
 __PACKAGE__->register_method(
        method  => "retrieve_all_copy_statuses",
@@ -1338,107 +1318,6 @@ sub copy_count_summary {
     return [ sort { $a->[1] cmp $b->[1] } @$data ];
 }
 
-
-
-=head
-__PACKAGE__->register_method(
-       method          => "multiclass_search",
-       api_name        => "open-ils.search.biblio.multiclass",
-       notes           => <<"  NOTES");
-               Performs a multiclass search
-               PARAMS( searchBlob, org_unit, format, limit ) 
-               where searchBlob is defined like this:
-                       { 
-                               "title" : { "term" : "water" }, 
-                               "author" : { "term" : "smith" }, 
-                               ... 
-                       }
-       NOTES
-
-__PACKAGE__->register_method(
-       method          => "multiclass_search",
-       api_name        => "open-ils.search.biblio.multiclass.staff",
-       notes           => "see open-ils.search.biblio.multiclass" );
-
-sub multiclass_search {
-       my( $self, $client, $searchBlob, $orgid, $format, $limit ) = @_;
-
-       $logger->debug("Performing multiclass search with org => $orgid, " .
-               "format => $format, limit => $limit, and search blob " . Dumper($searchBlob));
-
-       my $meth = 'open-ils.storage.metabib.post_filter.multiclass.search_fts.metarecord.atomic';
-       if($self->api_name =~ /staff/) { $meth =~ s/metarecord\.atomic/metarecord.staff.atomic/; }
-
-
-       my $records = $apputils->simplereq(
-               'open-ils.storage', $meth, 
-                org_unit => $orgid, searches => $searchBlob, format => $format, limit => $limit );
-
-       my $count = 0;
-       my $recs = [];
-
-       if( ref($records) and $records->[0] and 
-               defined($records->[0]->[3])) { $count = $records->[0]->[3];}
-
-       for my $r (@$records) { push( @$recs, $r ) if ($r and $r->[0]); }
-
-       # records has the form: [ mrid, rank, singleRecord / 0, hitCount ];
-       return { ids => $recs, count => $count };
-}
-=cut
-
-
-=head comment-1
-__PACKAGE__->register_method(
-       method          => "multiclass_search",
-       api_name                => "open-ils.search.biblio.multiclass",
-       signature       => q/
-               Performs a multiclass search
-               @param args A names hash of arguments:
-                       org_unit : The org to focus the search on
-                       depth           : The search depth
-                       format  : Item format
-                       limit           : Return limit
-                       offset  : Search offset
-                       searches : A named hash of searches which has the following format:
-                               { 
-                                       "title" : { "term" : "water" }, 
-                                       "author" : { "term" : "smith" }, 
-                                       ... 
-                               }
-               @return { ids : <array of ids>, count : hitcount }
-       /
-);
-
-__PACKAGE__->register_method(
-       method          => "multiclass_search",
-       api_name                => "open-ils.search.biblio.multiclass.staff",
-       notes           => q/@see open-ils.search.biblio.multiclass/ );
-
-sub multiclass_search {
-       my( $self, $client, $args ) = @_;
-
-       $logger->debug("Performing multiclass search with args:\n" . Dumper($args));
-       my $meth = 'open-ils.storage.metabib.post_filter.multiclass.search_fts.metarecord.atomic';
-       if($self->api_name =~ /staff/) { $meth =~ s/metarecord\.atomic/metarecord.staff.atomic/; }
-
-       my $records = $apputils->simplereq( 'open-ils.storage', $meth, %$args );
-
-       my $count = 0;
-       my $recs = [];
-
-       if( ref($records) and $records->[0] and 
-               defined($records->[0]->[3])) { $count = $records->[0]->[3];}
-
-       for my $r (@$records) { push( @$recs, $r ) if ($r and $r->[0]); }
-
-       return { ids => $recs, count => $count };
-}
-
-=cut
-
-
-
 __PACKAGE__->register_method(
        method          => "marc_search",
        api_name        => "open-ils.search.biblio.marc.staff");