# end of main
-sub continue { &{ $form->{nextsub} } }
+require "bin/mozilla/common.pl";
+
+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);
<td align=left nowrap>| . $locale->text("Mandantennummer") . qq|</td>
<td><input name=mandantennr size=10 maxlength=5 value="$form->{mandantennr}"></td>
- <td align=left nowrap>| . $locale->text("Datenträgernummer") . qq|</td>
+ <td align=left nowrap>| . $locale->text("Medium Number") . qq|</td>
<td><input name=datentraegernr size=5 maxlength=3 value="$form->{datentraegernr}"></td>
</tr>
<tr>
<input type=hidden name=nextsub value=export2>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
<br>
<input type=submit class=submit name=action value="|
. $locale->text('Continue') . qq|">
sub export2 {
$lxdebug->enter_sub();
+ $auth->assert('datev_export');
+
if ($form->{exporttype} == 0) {
&export_bewegungsdaten();
} else {
sub export_bewegungsdaten {
$lxdebug->enter_sub();
+ $auth->assert('datev_export');
+
$form->{title} = $locale->text("DATEX - Export Assistent");
$form->{allemonate} =
<input type=hidden name=nextsub value=export3>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
<br>
<input type=submit class=submit name=action value="|
. $locale->text('Continue') . qq|">
sub export_stammdaten {
$lxdebug->enter_sub();
+ $auth->assert('datev_export');
+
$form->{title} = $locale->text("DATEX - Export Assistent");
$form->header;
<input type=hidden name=nextsub value=export3>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
<br>
<input type=submit class=submit name=action value="|
. $locale->text('Continue') . qq|">
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);
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()));