X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a3f90d6fa23d0a8d026682511e7624bd847d532f..de8868c:/bin/mozilla/admin_printer.pl

diff --git a/bin/mozilla/admin_printer.pl b/bin/mozilla/admin_printer.pl
index bc623327f..e397868ae 100644
--- a/bin/mozilla/admin_printer.pl
+++ b/bin/mozilla/admin_printer.pl
@@ -20,10 +20,9 @@ sub get_login_form {
 }
 
 sub printer_dispatcher {
-      $::lxdebug->dump(0,  "testing", $::form);
-  for (qw(get_login_form list_printers add_printer edit_printer save_printer delete_printer list_users)) {
-    if ($::form->{$_}) {
-      ::call_sub($::locale->findsub($_));
+  for my $action (qw(get_login_form list_printers add_printer edit_printer save_printer delete_printer list_users)) {
+    if ($::form->{$action}) {
+      ::call_sub($::locale->findsub($action));
       ::end_of_request()
     }
   }
@@ -31,7 +30,7 @@ sub printer_dispatcher {
 }
 
 sub printer_management {
-  &list_printers;
+  &get_login_form;
 }
 
 sub add_printer {