From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 10 Aug 2006 16:30:47 +0000 (+0000)
Subject: added a generic copy details method
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2c166b9e2a74d4284ce922d7b667625c9ebd760a;p=Evergreen.git

added a generic copy details method


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index 0f2c125b3e..c934a55350 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -701,4 +701,62 @@ sub age_hold_rules {
 }
 
 
+
+
+__PACKAGE__->register_method(
+	method => 'copy_details',
+	api_name => 'open-ils.circ.copy_details.retrieve',
+	signature => q/
+	/
+);
+
+sub copy_details {
+	my( $self, $conn, $auth, $copy_id ) = @_;
+	my $e = new_editor(authtoken=>$auth);
+	return $e->event unless $e->checkauth;
+
+	my $copy = $e->retrieve_asset_copy($copy_id)
+		or return $e->event;
+
+	my $hold = $e->search_action_hold_request(
+		{ 
+			current_copy => $copy_id, 
+			capture_time => { "!=" => undef },
+			fulfillment_time => undef,
+		}
+	)->[0];
+
+	OpenILS::Application::Circ::Holds::flesh_hold_transits([$hold]) if $hold;
+
+	my $transit = $e->search_action_transit_copy(
+		{ target_copy => $copy_id, dest_recv_time => undef } )->[0];
+
+	my $circ = $e->search_action_circulation(
+		{ target_copy => $copy_id, stop_fines => undef })->[0];
+
+	unless( $circ ) {
+		$circ = $e->search_action_circulation(
+			{ 
+				target_copy => $copy_id, 
+				xact_finish => undef,
+				stop_fines	=> [ 
+					OILS_STOP_FINES_CLAIMSRETURNED, 
+					OILS_STOP_FINES_LOST, 
+					OILS_STOP_FINES_LONGOVERDUE, 
+				]
+			} 
+		)->[0];
+	}
+
+	return {
+		copy		=> $copy,
+		hold		=> $hold,
+		transit	=> $transit,
+		circ		=> $circ,
+	};
+}
+
+
+
+
 1;