From 04bee740404a8664c0ac1261f808295fec5ed620 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 27 Jul 2006 19:18:37 +0000 Subject: [PATCH] running penalty checker on bill create or void in addition to pay git-svn-id: svn://svn.open-ils.org/ILS/trunk@5133 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Circ/Money.pm | 25 ++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index 67b4ae6486..6f221c605a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -260,6 +260,8 @@ sub create_grocery_bill { $apputils->commit_db_session($session); + + return $transid; } @@ -317,8 +319,16 @@ sub billing_items_create { } $e->create_money_billing($billing) or return $e->event; - $e->commit; + + # ------------------------------------------------------------------------------ + # Update the patron penalty info in the DB + # ------------------------------------------------------------------------------ + $U->update_patron_penalties( + authtoken => $login, + patronid => $xact->usr, + ); + return $billing->id; } @@ -354,7 +364,18 @@ sub void_bill { my $evt = _check_open_xact($e, $bill->xact); return $evt if $evt; - $e->finish; + $e->commit; + + # ------------------------------------------------------------------------------ + # Update the patron penalty info in the DB + # ------------------------------------------------------------------------------ + my $xact = $e->retrieve_money_billable_transaction($bill->xact) + or return $e->event; + $U->update_patron_penalties( + authtoken => $authtoken, + patronid => $xact->usr, + ); + return 1; } -- 2.11.0