From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 10 Jul 2007 08:35:09 +0000 (+0000)
Subject: Form::redirect muss auch Zahlen in Scriptnamen zulassen, weil ansonsten z.B. menuv3... 
X-Git-Tag: release-2.4.3^2~19
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/a73fd639b91259eb1011a2d448b53df120d4514b?ds=inline

Form::redirect muss auch Zahlen in Scriptnamen zulassen, weil ansonsten z.B. menuv3.pl nicht ausgeführt wird.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index d1dbfb631..c62c8ad0d 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -692,7 +692,7 @@ sub redirect {
 
     ($script, $argv) = split(/\?/, $self->{callback}, 2);
     $script =~ s|.*/||;
-    $script =~ s|[^a-zA-Z_\.]||g;
+    $script =~ s|[^a-zA-Z0-9_\.]||g;
     exec("perl", "$script", $argv);
 
   } else {