From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 27 Nov 2006 16:23:23 +0000 (+0000)
Subject: removed a pile of deprecated code
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=32f5eb81755a759b081bd59abdfbe1ebbe2d4ed5;p=evergreen%2Fpines.git

removed a pile of deprecated code


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index f67a50c202..5fb6e60121 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -571,147 +571,12 @@ sub _hold_status {
 
 
 
-
-=head DEPRECATED
-__PACKAGE__->register_method(
-	method	=> "capture_copy",
-	api_name	=> "open-ils.circ.hold.capture_copy.barcode",
-	notes		=> <<"	NOTE");
-	Captures a copy to fulfil a hold
-	Params is login session and copy barcode
-	Optional param is 'flesh'.  If set, we also return the
-	relevant copy and title
-	login mus have COPY_CHECKIN permissions (since this is essentially
-	copy checkin)
-	NOTE
-
-# XXX deprecate me XXX
-
-sub capture_copy {
-	my( $self, $client, $login_session, $params ) = @_;
-	my %params = %$params;
-	my $barcode = $params{barcode};
-
-
-	my( $user, $target, $copy, $hold, $evt );
-
-	( $user, $evt ) = $apputils->checkses($login_session);
-	return $evt if $evt;
-
-	# am I allowed to checkin a copy?
-	$evt = $apputils->check_perms($user->id, $user->home_ou, "COPY_CHECKIN");
-	return $evt if $evt;
-
-	$logger->info("Capturing copy with barcode $barcode");
-
-	my $session = $apputils->start_db_session();
-
-	($copy, $evt) = $apputils->fetch_copy_by_barcode($barcode);
-	return $evt if $evt;
-
-	$logger->debug("Capturing copy " . $copy->id);
-
-	#( $hold, $evt ) = _find_local_hold_for_copy($session, $copy, $user);
-	( $hold, $evt ) = $self->find_nearest_permitted_hold($session, $copy, $user);
-	return $evt if $evt;
-
-	warn "Found hold " . $hold->id . "\n";
-	$logger->info("We found a hold " .$hold->id. "for capturing copy with barcode $barcode");
-
-	$hold->current_copy($copy->id);
-	$hold->capture_time("now"); 
-
-	#update the hold
-	my $stat = $session->request(
-			"open-ils.storage.direct.action.hold_request.update", $hold)->gather(1);
-	if(!$stat) { throw OpenSRF::EX::ERROR 
-		("Error updating hold request " . $copy->id); }
-
-	$copy->status(OILS_COPY_STATUS_ON_HOLDS_SHELF); #status on holds shelf
-
-	# if the staff member capturing this item is not at the pickup lib
-	if( $user->home_ou ne $hold->pickup_lib ) {
-		$self->_build_hold_transit( $login_session, $session, $hold, $user, $copy );
-	}
-
-	$copy->editor($user->id);
-	$copy->edit_date("now");
-	$stat = $session->request(
-		"open-ils.storage.direct.asset.copy.update", $copy )->gather(1);
-	if(!$stat) { throw OpenSRF::EX ("Error updating copy " . $copy->id); }
-
-	my $payload = { hold => $hold };
-	$payload->{copy} = $copy if $params{flesh_copy};
-
-	if($params{flesh_record}) {
-		my $record;
-		($record, $evt) = $apputils->fetch_record_by_copy( $copy->id );
-		return $evt if $evt;
-		$record = $apputils->record_to_mvr($record);
-		$payload->{record} = $record;
-	}
-
-	$apputils->commit_db_session($session);
-
-	return OpenILS::Event->new('ROUTE_ITEM', 
-		route_to => $hold->pickup_lib, payload => $payload );
-}
-
-sub _build_hold_transit {
-	my( $self, $login_session, $session, $hold, $user, $copy ) = @_;
-	my $trans = Fieldmapper::action::hold_transit_copy->new;
-
-	$trans->hold($hold->id);
-	$trans->source($user->home_ou);
-	$trans->dest($hold->pickup_lib);
-	$trans->source_send_time("now");
-	$trans->target_copy($copy->id);
-	$trans->copy_status($copy->status);
-
-	my $meth = $self->method_lookup("open-ils.circ.hold_transit.create");
-	my ($stat) = $meth->run( $login_session, $trans, $session );
-	if(!$stat) { throw OpenSRF::EX ("Error creating new hold transit"); }
-	else { $copy->status(6); } #status in transit 
-}
-
-
-
-__PACKAGE__->register_method(
-	method	=> "create_hold_transit",
-	api_name	=> "open-ils.circ.hold_transit.create",
-	notes		=> <<"	NOTE");
-	Creates a new transit object
-	NOTE
-
-sub create_hold_transit {
-	my( $self, $client, $login_session, $transit, $session ) = @_;
-
-	my( $user, $evt ) = $apputils->checkses($login_session);
-	return $evt if $evt;
-	$evt = $apputils->check_perms($user->id, $user->home_ou, "CREATE_TRANSIT");
-	return $evt if $evt;
-
-	my $ses;
-	if($session) { $ses = $session; } 
-	else { $ses = OpenSRF::AppSession->create("open-ils.storage"); }
-
-	return $ses->request(
-		"open-ils.storage.direct.action.hold_transit_copy.create", $transit )->gather(1);
-}
-
-=cut
-
-
 sub find_local_hold {
 	my( $class, $session, $copy, $user ) = @_;
 	return $class->find_nearest_permitted_hold($session, $copy, $user);
 }
 
 
-
-
-
-
 sub fetch_open_hold_by_current_copy {
 	my $class = shift;
 	my $copyid = shift;