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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-06 10:52:21 -0500 (Fri, 06 Feb 2009)
New Revision: 12094

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
added support for passing in cancellation cause and note

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-02-06 15:42:12 UTC (rev 12093)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-02-06 15:52:21 UTC (rev 12094)
@@ -449,7 +449,7 @@
 	NOTE
 
 sub cancel_hold {
-	my($self, $client, $auth, $holdid) = @_;
+	my($self, $client, $auth, $holdid, $cause, $note) = @_;
 
 	my $e = new_editor(authtoken=>$auth, xact=>1);
 	return $e->event unless $e->checkauth;
@@ -496,6 +496,8 @@
 	}
 
 	$hold->cancel_time('now');
+    $hold->cancel_cause($cause);
+    $hold->cancel_note($note);
 	$e->update_action_hold_request($hold)
 		or return $e->event;