[open-ils-commits] r10784 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-07 16:01:48 -0400 (Tue, 07 Oct 2008)
New Revision: 10784

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
run total owed and total checked out inside a transaction.  in particular, give the penalty server latest information to work with

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-10-07 20:01:42 UTC (rev 10783)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-10-07 20:01:48 UTC (rev 10784)
@@ -1138,14 +1138,20 @@
 
 sub patron_money_owed {
 	my( $self, $userid ) = @_;
-	return $self->storagereq(
-		'open-ils.storage.actor.user.total_owed', $userid);
+	my $ses = $self->start_db_session();
+	my $val = $ses->request(
+		'open-ils.storage.actor.user.total_owed', $userid)->gather(1);
+	$self->rollback_db_session($ses);
+	return $val;
 }
 
 sub patron_total_items_out {
 	my( $self, $userid ) = @_;
-	return $self->storagereq(
-		'open-ils.storage.actor.user.total_out', $userid);
+	my $ses = $self->start_db_session();
+	my $val = $ses->request(
+		'open-ils.storage.actor.user.total_out', $userid)->gather(1);
+	$self->rollback_db_session($ses);
+	return $val;
 }