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 d12f82e..7238161 100644 (file)
--- 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;