[open-ils-commits] r12114 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-09 09:12:41 -0500 (Mon, 09 Feb 2009)
New Revision: 12114

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
function to wrap up a xact-base storage request in 1 call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-02-09 03:34:48 UTC (rev 12113)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-02-09 14:12:41 UTC (rev 12114)
@@ -856,6 +856,14 @@
 		'open-ils.storage', $method, @params );
 }
 
+sub storagereq_xact {
+	my($self, $method, @params) = @_;
+	my $ses = $self->start_db_session();
+	my $val = $ses->request($method, @params)->gather(1);
+	$self->rollback_db_session($ses);
+    return $val;
+}
+
 sub cstorereq {
 	my( $self, $method, @params ) = @_;
 	return $self->simplereq(