From 12524f1a4a0e3aec4ead577b5a95e7110c4382e9 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 10 Nov 2006 19:11:46 +0000
Subject: [PATCH] added mvr and volume to copy details method

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6579 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 34 +++++++++++++++++++++--
 1 file changed, 32 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index 95c534f7f9..277761882a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -851,8 +851,33 @@ sub copy_details {
 	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 $flesh = { flesh => 1 };
+
+	my $copy = $e->retrieve_asset_copy(
+		[
+			$copy_id,
+			{
+				flesh => 2,
+				flesh_fields => {
+					acp => ['call_number'],
+					acn => ['record']
+				}
+			}
+		]) or return $e->event;
+
+
+	# De-flesh the copy for backwards compatibility
+	my $mvr;
+	my $vol = $copy->call_number;
+	if( ref $vol ) {
+		$copy->call_number($vol->id);
+		my $record = $vol->record;
+		if( ref $record ) {
+			$vol->record($record->id);
+			$mvr = $U->record_to_mvr($record);
+		}
+	}
+
 
 	my $hold = $e->search_action_hold_request(
 		{ 
@@ -876,11 +901,14 @@ sub copy_details {
 		]
 	)->[0];
 
+
 	return {
 		copy		=> $copy,
 		hold		=> $hold,
 		transit	=> $transit,
 		circ		=> $circ,
+		volume	=> $vol,
+		mvr		=> $mvr,
 	};
 }
 
@@ -912,6 +940,8 @@ sub mark_item {
 	my $copy = $e->retrieve_asset_copy($copy_id)
 		or return $e->event;
 	$copy->status($stat);
+	$copy->edit_date('now');
+	$copy->editor($e->requestor->id);
 
 	$e->update_asset_copy($copy) or return $e->event;
 
-- 
2.11.0