From: Jan Büren <jan@kivitendo.de>
Date: Wed, 17 Nov 2021 12:09:54 +0000 (+0100)
Subject: Webshop speichern: Zumindestens etwas mehr Eingabevalidierung, vor DB-Fehlern
X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~218^2~31
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b154cbc6eeb97078ecd4226f6f04217fb3ac703b;p=kivitendo-erp.git

Webshop speichern: Zumindestens etwas mehr Eingabevalidierung, vor DB-Fehlern
---

diff --git a/SL/DB/Shop.pm b/SL/DB/Shop.pm
index 63f988f03..e75f17c6e 100644
--- a/SL/DB/Shop.pm
+++ b/SL/DB/Shop.pm
@@ -16,10 +16,13 @@ sub validate {
   my ($self) = @_;
 
   my @errors;
-
+  # critical checks
   push @errors, $::locale->text('The description is missing.') unless $self->{description};
-  push @errors, $::locale->text('The path is missing.') unless $self->{path};
-
+  push @errors, $::locale->text('The path is missing.')        unless $self->{path};
+  push @errors, $::locale->text('The Host Name is missing')    unless $self->{server};
+  push @errors, $::locale->text('The Host Name seems invalid') unless $self->{server} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;
+  push @errors, $::locale->text('Orders to fetch neeeds a positive Integer')
+                                                               unless $self->{orders_to_fetch} > 0;
   return @errors;
 }