From 6db559753eed24ea0cd1931976fb632351358190 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 30 Apr 2010 20:49:28 +0000
Subject: [PATCH] added support for update the fund on an LID after the debits
 have been created.  added a .dry_run version of
 open-ils.acq.lineitem_detail.cud.batch[.dry_run] to allow the caller to check
 the fund warning percents

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16364 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Acq/Order.pm  | 44 +++++++++++++++++++++-
 1 file changed, 43 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index 2a3136ccb..a59031dd0 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -1555,17 +1555,33 @@ __PACKAGE__->register_method(
     }
 );
 
+__PACKAGE__->register_method(
+	method => 'lineitem_detail_CUD_batch',
+	api_name => 'open-ils.acq.lineitem_detail.cud.batch.dry_run',
+    stream => 1,
+    signature => { 
+        desc => q/
+            Dry run version of open-ils.acq.lineitem_detail.cud.batch.
+            In dry_run mode, updated fund_debit's the exceed the warning
+            percent return an event.  
+        /
+    }
+);
+
+
 sub lineitem_detail_CUD_batch {
     my($self, $conn, $auth, $li_details, $create_debits) = @_;
 
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
     my $mgr = OpenILS::Application::Acq::BatchManager->new(editor => $e, conn => $conn);
+    my $dry_run = ($self->api_name =~ /dry_run/o);
 
     $mgr->total(scalar(@$li_details));
     
     my $li;
     my %li_cache;
+    my $fund_cache = {};
     my $evt;
 
     for my $lid (@$li_details) {
@@ -1584,7 +1600,7 @@ sub lineitem_detail_CUD_batch {
             }
 
         } elsif($lid->ischanged) {
-            $e->update_acq_lineitem_detail($lid) or return $e->die_event;
+            return $evt if $evt = handle_changed_lid($e, $lid, $dry_run, $fund_cache);
 
         } elsif($lid->isdeleted) {
             delete_lineitem_detail($mgr, $lid) or return $e->die_event;
@@ -1598,6 +1614,32 @@ sub lineitem_detail_CUD_batch {
     return $mgr->respond_complete;
 }
 
+sub handle_changed_lid {
+    my($e, $lid, $dry_run, $fund_cache) = @_;
+
+    my $orig_lid = $e->retrieve_acq_lineitem_detail($lid->id) or return $e->die_event;
+
+    # updating the fund, so update the debit
+    if($orig_lid->fund_debit and $orig_lid->fund != $lid->fund) {
+
+        my $debit = $e->retrieve_acq_fund_debit($orig_lid->fund_debit);
+        my $new_fund = $$fund_cache{$lid->fund} = 
+            $$fund_cache{$lid->fund} || $e->retrieve_acq_fund($lid->fund);
+
+        # check the thresholds
+        return $e->die_event if
+            fund_exceeds_balance_percent($new_fund, $debit->amount, $e, "stop");
+        return $e->die_event if $dry_run and 
+            fund_exceeds_balance_percent($new_fund, $debit->amount, $e, "warning");
+
+        $debit->fund($new_fund->id);
+        $e->update_acq_fund_debit($debit) or return $e->die_event;
+    }
+
+    $e->update_acq_lineitem_detail($lid) or return $e->die_event;
+    return undef;
+}
+
 
 __PACKAGE__->register_method(
 	method => 'receive_po_api',
-- 
2.11.0