RDBO BackgroundJob(History): Refactoring von Status-Strings

diff --git a/SL/DB/BackgroundJob.pm b/SL/DB/BackgroundJob.pm
index e8ae55bac9a394448ff16695c250b5b6716e72a5..b567d364e8bcdaf4c8e7c7dc993288c235e78566 100644 (file)
--- a/SL/DB/BackgroundJob.pm
+++ b/SL/DB/BackgroundJob.pm
@@ -45,7 +45,7 @@ sub run {
     $history = SL::DB::BackgroundJobHistory
       ->new(package_name => $self->package_name,
             run_at       => $run_at,
     $history = SL::DB::BackgroundJobHistory
       ->new(package_name => $self->package_name,
             run_at       => $run_at,

-            status       => 'success',
+            status       => SL::DB::BackgroundJobHistory::SUCCESS(),

             result       => $result,
             data         => $self->data);
     $history->save;
             result       => $result,
             data         => $self->data);
     $history->save;


@@ -58,7 +58,7 @@ sub run {
     $history = SL::DB::BackgroundJobHistory
       ->new(package_name => $self->package_name,
             run_at       => $run_at,
     $history = SL::DB::BackgroundJobHistory
       ->new(package_name => $self->package_name,
             run_at       => $run_at,

-            status       => 'failure',
+            status       => SL::DB::BackgroundJobHistory::FAILURE(),

             error_col    => $error,
             data         => $self->data);
     $history->save;
             error_col    => $error,
             data         => $self->data);
     $history->save;

diff --git a/SL/DB/BackgroundJobHistory.pm b/SL/DB/BackgroundJobHistory.pm
index 1455480399ae79cb9c5a58476cf7e1cd1eaf85b3..84b2cb7712c49e7431761c4aeb84746c304cb12e 100644 (file)
--- a/SL/DB/BackgroundJobHistory.pm
+++ b/SL/DB/BackgroundJobHistory.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-

 package SL::DB::BackgroundJobHistory;
 
 use strict;
 package SL::DB::BackgroundJobHistory;
 
 use strict;


@@ -10,4 +7,10 @@ use SL::DB::Manager::BackgroundJobHistory;
 
 __PACKAGE__->meta->initialize;
 
 
 __PACKAGE__->meta->initialize;
 

+use constant SUCCESS => 'success';
+use constant FAILURE => 'failure';
+
+sub has_succeeded { $_[0] && (($_[0]->status || '') eq SUCCESS()) }
+sub has_failed    { $_[0] && (($_[0]->status || '') eq FAILURE()) }
+

 1;
 1;