X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=am.pl;h=98d990c8101884f83e4c435b1ec9386e7c5aaca9;hb=66671e22ff33f493fae7d8a88145ac1ecf34b3b3;hp=b8a8b2d1b1250b2ee03d9e1dd9e66b675e403ca6;hpb=541272c5cf4f874a13eff89993d5d4a941451f42;p=kivitendo-erp.git

diff --git a/am.pl b/am.pl
index b8a8b2d1b..98d990c81 100755
--- a/am.pl
+++ b/am.pl
@@ -30,6 +30,10 @@
 #
 #######################################################################
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 # setup defaults, DO NOT CHANGE
 $userspath  = "users";
 $templates  = "templates";
@@ -42,17 +46,21 @@ $| = 1;
 use SL::LXDebug;
 $lxdebug = LXDebug->new();
 
+use CGI;
 use SL::Form;
 use SL::Locale;
 
 eval { require "lx-erp.conf"; };
 
+require "bin/mozilla/common.pl";
+
 if (defined($latex) && !defined($latex_templates)) {
   $latex_templates = $latex;
   undef($latex);
 }
 
 $form = new Form;
+$cgi = new CGI('');
 
 # name of this script
 $0 =~ tr/\\/\//;
@@ -123,7 +131,7 @@ if ($form->{action}) {
     . $locale->text('Version')
     . " $form->{version} - $myconfig{name} - $myconfig{dbname}";
 
-  &{ $locale->findsub($form->{action}) };
+  call_sub($locale->findsub($form->{action}));
 } else {
   $form->error($locale->text('action= not defined!'));
 }