From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 26 Feb 2009 02:23:21 +0000 (+0000)
Subject: if no cleanup handler is defined for the given state, assume cleanedup is true
X-Git-Tag: sprint4-merge-nov22~10711
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8ce147801af0d1fb117d0f928819b26085897dc4;p=working%2FEvergreen.git

if no cleanup handler is defined for the given state, assume cleanedup is true

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12304 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
index 580bff4708..5ee4c7c9b0 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
@@ -99,12 +99,16 @@ sub cleanup {
         $self->update_state( 'cleaning') || die 'Unable to update event state';
         try {
             my $cleanup = $self->reacted ? $self->event->event_def->cleanup_success : $self->event->event_def->cleanup_failure;
-            $self->cleanedup(
-                OpenILS::Application::Trigger::ModRunner::Cleanup
-                    ->new( $cleanup, $env)
-                    ->run
-                    ->final_result
-            );
+            if($cleanup) {
+                $self->cleanedup(
+                    OpenILS::Application::Trigger::ModRunner::Cleanup
+                        ->new( $cleanup, $env)
+                        ->run
+                        ->final_result
+                );
+            } else {
+                $self->cleanedup(1);
+            }
         } otherwise {
             $log->error( shift() );
             $self->update_state( 'error' ) || die 'Unable to update event state';