From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 9 Feb 2009 14:12:41 +0000 (+0000)
Subject: function to wrap up a xact-base storage request in 1 call
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=71e3dedb51f228a5ef106fb2ceafe5b75f51a441;p=evergreen%2Ftadl.git

function to wrap up a xact-base storage request in 1 call

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12114 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 f50001584b..1a506054da 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -856,6 +856,14 @@ sub storagereq {
 		'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(