From e6ba9a522955a76a196f02508aa4894b3244ec64 Mon Sep 17 00:00:00 2001
From: phasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 1 Apr 2010 05:14:47 +0000
Subject: [PATCH] Rough cut of 'open-ils.acq.lineitem.cancel', which "Cancels a
 lineitem, any of its detail entries and corresponding copies and call
 numbers, and potentially related holds (if the bib becomes empty)."  Need to
 smoke test it, add hold deletion if the bib becomes empty (and add an org
 unit setting for optionally deleting the bib as well), and check to see if
 volume deletion is being handled automatically by
 open-ils.cat.asset.copy.fleshed.batch.update

From my open-ils.acq.lineitem.cancel branch


git-svn-id: svn://svn.open-ils.org/ILS/trunk@16076 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../OpenILS/Application/Acq/Lineitem.pm       | 61 +++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 92c00f22ce..1249c5a079 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -151,7 +151,68 @@ sub retrieve_lineitem_impl {
     return $li;
 }
 
+__PACKAGE__->register_method(
+	method => 'cancel_lineitem',
+	api_name	=> 'open-ils.acq.lineitem.cancel',
+	signature => {
+        desc => 'Cancels a lineitem, any of its detail entries and corresponding copies and call numbers, and potentially related holds (if the bib becomes empty).',
+        params => [
+            {desc => 'Authentication token', type => 'string'},
+            {desc => 'lineitem ID to cancel', type => 'number'},
+        ],
+        return => {desc => '1 on success, Event on error'}
+    }
+);
+
+sub cancel_lineitem {
+    my($self, $conn, $auth, $li_id, $cancel_reason) = @_;
+    my $e = new_editor(xact=>1, authtoken=>$auth);
+    return $e->die_event unless $e->checkauth;
+
+    $cancel_reason = $e->retrieve_acq_cancel_reason($cancel_reason);
+    if (!$cancel_reason) {
+        $e->rollback;
+        return new OpenILS::Event(
+            "BAD_PARAMS", 
+            "note" => "Provide cancel reason ID" # let client handle I18N for such events?
+        );
+    }
+
+    my $li = $e->retrieve_acq_lineitem($li_id)
+        or return $e->die_event;
+    $li->cancel_reason( $cancel_reason);
+
+    # cancel the attached lineitem_details and gather corresponding copies
+    my $lids = $e->search_acq_lineitem_detail({
+        lineitem => $li_id
+    }, {
+        flesh => 1,
+        flesh_fields => { acqlid => ['eg_copy_id'] }
+    });
+
+    my $copies = [];
+    for my $lid (@$lids) {
+        $lid->cancel_reason( $cancel_reason );
+        $e->update_acq_lineitem_detail( $lid );
+        $lid->eg_copy_id->isdeleted('t');
+        push @$copies, $lid->eg_copy_id;
+    }
+
+    # attempt to delete the gathered copies (will this may handle volume deletion and do hold retargeting for us?)
+    my $cat = OpenSRF::AppSession->create('open-ils.cat');
+    $cat->connect;
+    my $req = $cat->request('open-ils.cat.asset.copy.fleshed.batch.update', $auth, $copies);
+    my $result = $req->recv;
+    $cat->disconnect;
+    if ($result != 1) { # failed to delete copies
+        $e->rollback;
+        return $result;
+    }
 
+    $e->update_acq_lineitem($li) or return $e->die_event;
+    $e->commit;
+    return 0;
+}
 
 __PACKAGE__->register_method(
 	method => 'delete_lineitem',
-- 
2.43.2