From 3809d56af256e2aca11405fa99eaf74a28047a93 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 20 Nov 2006 20:05:22 +0000 Subject: [PATCH] moved to newer fines summary method git-svn-id: svn://svn.open-ils.org/ILS/trunk@6600 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm index c3dc887d94..f2cf643059 100644 --- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm +++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm @@ -197,13 +197,13 @@ sub fee_amount { my $self = shift; syslog('LOG_DEBUG', 'OILS: Patron->fee_amount()'); - my $total = 0; - my $e = OpenILS::SIP->editor(); - my $xacts = $e->search_money_open_billable_transaction_summary( - { usr => $self->{user}->id, balance_owed => { '!=' => 0 } } ); + my $ses = $U->start_db_session(); + my $summary = $ses->request( + 'open-ils.storage.money.open_user_summary.search', $self->{user}->id )->gather(1); + $U->rollback_db_session($ses); - $total += $_->balance_owed for @$xacts; - syslog('LOG_INFO', "User ".$self->{user}->id." has a fee amount of \$$total"); + my $total = $summary->balance_owed; + syslog('LOG_INFO', "User ".$self->{id} .':'.$self->{user}->id." has a fee amount of \$$total"); return $total; } -- 2.11.0