SetNumberRange: Validitätsprüfung auf Benutzereingabe (data) im Job

diff --git a/SL/BackgroundJob/SetNumberRange.pm b/SL/BackgroundJob/SetNumberRange.pm
index e317730..a7976f4 100644 (file)
--- a/SL/BackgroundJob/SetNumberRange.pm
+++ b/SL/BackgroundJob/SetNumberRange.pm
@@ -17,9 +17,15 @@ sub run {
   my ($self, $db_obj) = @_;
   my $data       = $db_obj->data_as_hash;
 
+  if ($data->{digits_year} && !($data->{digits_year} == 2 || $data->{digits_year} == 4)) {
+    die "No valid input for digits_year should be 2 or 4.";
+  }
+  if ($data->{multiplier}  && !($data->{multiplier} % 10 == 0)) {
+    die "No valid input for multiplier should be 10, 100, .., 1000000";
+  }
   my $next_year  = DateTime->today_local->truncate(to => 'year')->add(years => 1)->year();
   $next_year     = ($data->{digits_year} == 2) ? substr($next_year, 2, 2) : $next_year;
-  my $multiplier = $data->{multiplier} || 1;
+  my $multiplier = $data->{multiplier} || 100;
 
   my $defaults   = SL::DB::Default->get;