From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 6 Feb 2009 15:52:21 +0000 (+0000)
Subject: added support for passing in cancellation cause and note
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=42d1e0978aa0c8c1917a4131141ddddd56413128;p=evergreen%2Ftadl.git

added support for passing in cancellation cause and note

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12094 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 d12f82e824..7238161b0a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -449,7 +449,7 @@ __PACKAGE__->register_method(
 	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 @@ sub cancel_hold {
 	}
 
 	$hold->cancel_time('now');
+    $hold->cancel_cause($cause);
+    $hold->cancel_note($note);
 	$e->update_action_hold_request($hold)
 		or return $e->event;