Avoid xact rollback on un-connected CStoreEditor session

Helps to reduce "No transaction to rollback" errors in the error logs.

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
index 23559e0..a9ba65c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
@@ -287,7 +287,11 @@ sub xact_commit {
 # -----------------------------------------------------------------------------
 sub xact_rollback {
        my $self = shift;
-    return unless $self->{session} and $self->{xact_id};
+    return unless $self->{xact_id};
+    unless ($self->{session} and $self->{session}->connected) {
+        $self->log(I, "avoiding rollback attempt on un-connected session");
+        return;
+    }
        $self->log(I, "rolling back db session");
        my $stat = $self->request($self->app.".transaction.rollback");
        $self->log(E, "error rolling back database transaction") unless $stat;