X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/de17d33a5bde24a0d553a34b8a1406de28fcd9d9..53e8b269113c3d06991224d2096c9a4a24d76f72:/SL/DB/Shop.pm

diff --git a/SL/DB/Shop.pm b/SL/DB/Shop.pm
index 750e3a3b7..6b0035067 100644
--- a/SL/DB/Shop.pm
+++ b/SL/DB/Shop.pm
@@ -21,6 +21,7 @@ sub validate {
   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('The Proxy Name seems invalid') unless $self->{proxy} =~ 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;