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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-15 12:40:57 -0400 (Mon, 15 Sep 2008)
New Revision: 10593

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
more cleanup

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-09-15 16:40:18 UTC (rev 10592)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-09-15 16:40:57 UTC (rev 10593)
@@ -1260,27 +1260,7 @@
 }
 
 
-=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",
 	api_name	=> "open-ils.search.config.copy_status.retrieve.all" );
@@ -1338,108 +1318,7 @@
     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");