X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdatev.pl;h=6d89a21b911823c3ee1b751ee9833f060297cfb8;hb=09685616f65f95b3189049855dfc53d2bf1ef271;hp=a21125308e0c8a009791a24b2526f97dc616b894;hpb=40782548cf82ac1e4c0fe417113a4cb3072e9390;p=kivitendo-erp.git diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl index a21125308..6d89a21b9 100644 --- a/bin/mozilla/datev.pl +++ b/bin/mozilla/datev.pl @@ -42,6 +42,8 @@ sub continue { call_sub($form->{"nextsub"}); } sub export { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + $form->{title} = $locale->text("DATEX - Export Assistent"); DATEV->get_datev_stamm(\%myconfig, \%$form); @@ -82,7 +84,7 @@ sub export { | . $locale->text("Mandantennummer") . qq| - | . $locale->text("Datenträgernummer") . qq| + | . $locale->text("Medium Number") . qq| @@ -113,10 +115,6 @@ sub export { -{path}> -{login}> -{password}> -
@@ -131,6 +129,8 @@ sub export { sub export2 { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + if ($form->{exporttype} == 0) { &export_bewegungsdaten(); } else { @@ -142,6 +142,8 @@ sub export2 { sub export_bewegungsdaten { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + $form->{title} = $locale->text("DATEX - Export Assistent"); $form->{allemonate} = @@ -248,10 +250,6 @@ sub export_bewegungsdaten { -{path}> -{login}> -{password}> -
@@ -267,6 +265,8 @@ sub export_bewegungsdaten { sub export_stammdaten { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + $form->{title} = $locale->text("DATEX - Export Assistent"); $form->header; @@ -314,10 +314,6 @@ sub export_stammdaten { -{path}> -{login}> -{password}> -
@@ -333,11 +329,11 @@ sub export_stammdaten { sub export3 { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + DATEV->save_datev_stamm(\%myconfig, \%$form); - my $link = $form->{"script"} . "?"; - map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(path login password)); - $link .= "action=download"; + my $link = "datev.pl?action=download"; if ($form->{kne}) { my @filenames = DATEV->kne_export(\%myconfig, \%$form); @@ -367,6 +363,8 @@ sub export3 { sub download { $lxdebug->enter_sub(); + $auth->assert('datev_export'); + my $tmp_name = Common->tmpname(); my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip", localtime(time()));