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 580bff4..5ee4c7c 100644 (file)
--- 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';