From ee3ae3d156487d272dfc98489ef376a6471158e0 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 15 Sep 2008 16:40:57 +0000 Subject: [PATCH] more cleanup git-svn-id: svn://svn.open-ils.org/ILS/trunk@10593 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Search/Biblio.pm | 121 --------------------- 1 file changed, 121 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index c6939b52c4..4d17a7df71 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -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 : , 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"); -- 2.11.0