[open-ils-commits] r10783 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

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

Modified:
   branches/rel_1_2/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: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-10-07 20:01:20 UTC (rev 10782)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-10-07 20:01:42 UTC (rev 10783)
@@ -1121,14 +1121,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;
 }