[open-ils-commits] r12370 - trunk/Open-ILS/src/perlmods/OpenILS/Utils (erickson)
svn at svn.open-ils.org
svn at svn.open-ils.org
Mon Mar 2 23:19:43 EST 2009
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};
More information about the open-ils-commits
mailing list