LP#1198465 Excise overbill collab/berick/lp1198465-checkin-lost-overdue-fines-within-main-xact
authorMike Rylander <miker@esilibrary.com>
Thu, 25 Sep 2014 17:10:57 +0000 (13:10 -0400)
committerMike Rylander <miker@esilibrary.com>
Thu, 25 Sep 2014 17:10:57 +0000 (13:10 -0400)
Now that we don't accept the $overbill parameter, excise the
logic that uses it.

Signed-off-by: Mike Rylander <miker@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm

index 2059a17..62713bd 100644 (file)
@@ -1132,10 +1132,6 @@ sub generate_fines {
 
             my $f_idx = 0;
             my $fine = $fines[$f_idx] if (@fines);
-            if ($overbill) {
-                $fine = $fines[++$f_idx] while ($fine and $fine->voided);
-            }
-
             my $current_fine_total = 0;
             $current_fine_total += int($_->amount * 100) for (grep { $_ and !$_->voided } @fines);