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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-02 23:19:41 -0500 (Mon, 02 Mar 2009)
New Revision: 12370

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
protect against multiple xact_begin's

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-03-03 04:09:26 UTC (rev 12369)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-03-03 04:19:41 UTC (rev 12370)
@@ -196,6 +196,7 @@
 # -----------------------------------------------------------------------------
 sub xact_begin {
     my $self = shift;
+    return $self->{xact_id} if $self->{xact_id};
     $self->session->connect unless $self->session->state == OpenSRF::AppSession::CONNECTED();
 	$self->log(D, "starting new database transaction");
 	my $stat = $self->request($self->app . '.transaction.begin') unless $self->{xact_id};