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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-22 09:41:14 -0400 (Thu, 22 Oct 2009)
New Revision: 14556

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
added support for voiding overdue fines on the most recent circ when marking an item as damaged

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-22 13:30:54 UTC (rev 14555)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-22 13:41:14 UTC (rev 14556)
@@ -1097,6 +1097,9 @@
     my $proc_fee = $U->ou_ancestor_setting_value(
         $owning_lib, 'circ.damaged_item_processing_fee', $e) || 0;
 
+    my $void_overdue = $U->ou_ancestor_setting_value(
+        $owning_lib, 'circ.damaged.void_ovedue', $e) || 0;
+
     return undef unless $charge_price or $proc_fee;
 
     my $copy_price = ($charge_price) ? $U->get_copy_price($e, $copy) : 0;
@@ -1116,6 +1119,13 @@
             return $evt if $evt;
         }
 
+        # the assumption is that you would not void the overdues unless you 
+        # were also charging for the item and/or applying a processing fee
+        if($void_overdue) {
+            my $evt = OpenILS::Application::Circ::CircCommon->void_overdues($e, $circ);
+            return $evt if $evt;
+        }
+
         my $evt = OpenILS::Application::Circ::CircCommon->reopen_xact($e, $circ->id);
         return $evt if $evt;