From 844d29c1f6f66d2466a71817a736112d50a882a6 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 14 Sep 2006 17:41:21 +0000 Subject: [PATCH] added calls to get owed and total out from storage so we dont have to fetch the mbts-es git-svn-id: svn://svn.open-ils.org/ILS/trunk@6101 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/AppUtils.pm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm index 8eae942959..f2418044ae 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm @@ -1092,7 +1092,8 @@ sub is_true { } -sub patron_money_owed { +# This logic now lives in storage +sub __patron_money_owed { my( $self, $patronid ) = @_; my $ses = OpenSRF::AppSession->create('open-ils.storage'); my $req = $ses->request( @@ -1108,6 +1109,18 @@ sub patron_money_owed { return $total; } +sub patron_money_owed { + my( $self, $userid ) = @_; + return $self->storagereq( + 'open-ils.storage.actor.user.total_owed', $userid); +} + +sub patron_total_items_out { + my( $self, $userid ) = @_; + return $self->storagereq( + 'open-ils.storage.actor.user.total_out', $userid); +} + 1; -- 2.43.2