X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdatev.pl;h=8f0bdd8c50ea223345d4b7b5fb9d6b60f27ae5bc;hb=fe73e0d261229f181e8133283b530509773d2151;hp=06393376766dd599aa976a4601bc9903899d8edd;hpb=63024c9f98f172ec904324fd0b6f9cc819ce7600;p=kivitendo-erp.git
diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl
index 063933767..8f0bdd8c5 100644
--- a/bin/mozilla/datev.pl
+++ b/bin/mozilla/datev.pl
@@ -31,16 +31,24 @@ use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use SL::Common;
use SL::DATEV;
+use strict;
+
1;
# end of main
require "bin/mozilla/common.pl";
-sub continue { call_sub($form->{"nextsub"}); }
+sub continue { call_sub($main::form->{"nextsub"}); }
sub export {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('datev_export');
$form->{title} = $locale->text("DATEX - Export Assistent");
@@ -113,9 +121,6 @@ sub export {
-{login}>
-{password}>
-
@@ -124,22 +129,32 @@ sub export {