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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 8eae942..f241804 100644 (file)
--- 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;