X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdatev.pl;h=a98a9529f5d545aa0b7915eeca9fa3140938b0a0;hb=4f3393f4faf9b531d48bb97056468eaf5d0676c8;hp=9944abfba13e699fe72a2e19c69aaf32c5402082;hpb=a14a3ff56b00e22c39a2cfb0e465f8c7764a4cd4;p=kivitendo-erp.git diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl index 9944abfba..a98a9529f 100644 --- a/bin/mozilla/datev.pl +++ b/bin/mozilla/datev.pl @@ -35,7 +35,9 @@ use SL::DATEV; # end of main -sub continue { &{ $form->{nextsub} } } +require "bin/mozilla/common.pl"; + +sub continue { call_sub($form->{"nextsub"}); } sub export { $lxdebug->enter_sub(); @@ -111,7 +113,6 @@ sub export { -{path}> {login}> {password}> @@ -246,7 +247,6 @@ sub export_bewegungsdaten { -{path}> {login}> {password}> @@ -312,7 +312,6 @@ sub export_stammdaten { -{path}> {login}> {password}> @@ -334,7 +333,7 @@ sub export3 { DATEV->save_datev_stamm(\%myconfig, \%$form); my $link = $form->{"script"} . "?"; - map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(path login password)); + map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(login password)); $link .= "action=download"; if ($form->{kne}) {