[open-ils-commits] r14501 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-19 20:21:09 -0400 (Mon, 19 Oct 2009)
New Revision: 14501

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
clear shelf_time when hold is reset

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-19 18:00:39 UTC (rev 14500)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-20 00:21:09 UTC (rev 14501)
@@ -1080,6 +1080,7 @@
 
 	$hold->clear_capture_time;
 	$hold->clear_current_copy;
+	$hold->clear_shelf_time;
 
 	$e->update_action_hold_request($hold) or return $e->event;
 	$e->commit;
@@ -1837,6 +1838,7 @@
 		$volume = $e->retrieve_asset_call_number($copy->call_number);
 	}
 
+    # TODO return metarcord mvr for M holds
 	my $title = $e->retrieve_biblio_record_entry($tid);
 	return ( $U->record_to_mvr($title), $volume, $copy );
 }