From b1ca11e0ba0437688fa2a5c59c306aff092c60de Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 16 Oct 2006 18:55:20 +0000 Subject: [PATCH] moved payment code to use the fetch_mbts instead of billable_xact_summary git-svn-id: svn://svn.open-ils.org/ILS/trunk@6474 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index 57d7957065..ce2689a17d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -82,9 +82,10 @@ sub make_payments { my $amount = $pay->[1]; $amount =~ s/\$//og; # just to be safe - #($trans, $evt) = $apputils->fetch_open_billable_transaction($transid); - ($trans, $evt) = $apputils->fetch_billable_xact_summary($transid); - return $evt if $evt; + $trans = $self->fetch_mbts($client, $login, $transid); + return $trans if $U->event_code($trans); + + $logger->info("payment method retrieved transaction [$transid] with balance_owed = " . $trans->balance_owed); if($trans->usr != $userid) { # Do we need to restrict this in some way ?? $logger->info( " * User $userid is making a payment for " . -- 2.11.0