From 732a6d820d69404cd95cd57a0727734d069e82a8 Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Tue, 29 May 2012 12:18:58 -0400 Subject: [PATCH] Call outstanding_bills_for_circ differently Our arguments don't include a ref to the class/self when we're calling outstanding_bills_for_circ from within its own package. For now, rename to a private-looking sub and change what arguments we look for. Signed-off-by: Jeff Godin --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm index 579b43d66e..f65f36f585 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm @@ -31,7 +31,7 @@ sub forgive_overdues { $logger->info("attempting to forgive overdues on circ " . $circ->id . " with note " . $note); # get outstanding bills for the circ in question - my $bills = outstanding_bills_for_circ($e, $circ); + my $bills = _outstanding_bills_for_circ($e, $circ); # Sum any outstanding overdue billings, stopping at the first non-overdue billing @@ -169,8 +169,8 @@ sub create_bill { # If a bill is partially paid, change the amount of the bill # to reflect the unpaid amount, not the original amount. # ----------------------------------------------------------------- -sub outstanding_bills_for_circ { - my ($class, $e, $circ) = @_; +sub _outstanding_bills_for_circ { + my ($e, $circ) = @_; # find all unvoided bills in order my $bill_search = [ -- 2.11.0