Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
| 42 | 42 |
sub export {
|
| 43 | 43 |
$lxdebug->enter_sub(); |
| 44 | 44 |
|
| 45 |
$auth->assert('datev_export');
|
|
| 46 |
|
|
| 45 | 47 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 46 | 48 |
|
| 47 | 49 |
DATEV->get_datev_stamm(\%myconfig, \%$form); |
| ... | ... | |
| 113 | 115 |
|
| 114 | 116 |
<input type=hidden name=nextsub value=export2> |
| 115 | 117 |
|
| 116 |
<input type=hidden name=login value=$form->{login}>
|
|
| 117 |
<input type=hidden name=password value=$form->{password}>
|
|
| 118 |
|
|
| 119 | 118 |
<br> |
| 120 | 119 |
<input type=submit class=submit name=action value="| |
| 121 | 120 |
. $locale->text('Continue') . qq|">
|
| ... | ... | |
| 130 | 129 |
sub export2 {
|
| 131 | 130 |
$lxdebug->enter_sub(); |
| 132 | 131 |
|
| 132 |
$auth->assert('datev_export');
|
|
| 133 |
|
|
| 133 | 134 |
if ($form->{exporttype} == 0) {
|
| 134 | 135 |
&export_bewegungsdaten(); |
| 135 | 136 |
} else {
|
| ... | ... | |
| 141 | 142 |
sub export_bewegungsdaten {
|
| 142 | 143 |
$lxdebug->enter_sub(); |
| 143 | 144 |
|
| 145 |
$auth->assert('datev_export');
|
|
| 146 |
|
|
| 144 | 147 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 145 | 148 |
|
| 146 | 149 |
$form->{allemonate} =
|
| ... | ... | |
| 247 | 250 |
|
| 248 | 251 |
<input type=hidden name=nextsub value=export3> |
| 249 | 252 |
|
| 250 |
<input type=hidden name=login value=$form->{login}>
|
|
| 251 |
<input type=hidden name=password value=$form->{password}>
|
|
| 252 |
|
|
| 253 | 253 |
<br> |
| 254 | 254 |
<input type=submit class=submit name=action value="| |
| 255 | 255 |
. $locale->text('Continue') . qq|">
|
| ... | ... | |
| 265 | 265 |
sub export_stammdaten {
|
| 266 | 266 |
$lxdebug->enter_sub(); |
| 267 | 267 |
|
| 268 |
$auth->assert('datev_export');
|
|
| 269 |
|
|
| 268 | 270 |
$form->{title} = $locale->text("DATEX - Export Assistent");
|
| 269 | 271 |
|
| 270 | 272 |
$form->header; |
| ... | ... | |
| 312 | 314 |
|
| 313 | 315 |
<input type=hidden name=nextsub value=export3> |
| 314 | 316 |
|
| 315 |
<input type=hidden name=login value=$form->{login}>
|
|
| 316 |
<input type=hidden name=password value=$form->{password}>
|
|
| 317 |
|
|
| 318 | 317 |
<br> |
| 319 | 318 |
<input type=submit class=submit name=action value="| |
| 320 | 319 |
. $locale->text('Continue') . qq|">
|
| ... | ... | |
| 330 | 329 |
sub export3 {
|
| 331 | 330 |
$lxdebug->enter_sub(); |
| 332 | 331 |
|
| 332 |
$auth->assert('datev_export');
|
|
| 333 |
|
|
| 333 | 334 |
DATEV->save_datev_stamm(\%myconfig, \%$form); |
| 334 | 335 |
|
| 335 |
my $link = $form->{"script"} . "?";
|
|
| 336 |
map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(login password));
|
|
| 337 |
$link .= "action=download"; |
|
| 336 |
my $link = "datev.pl?action=download"; |
|
| 338 | 337 |
|
| 339 | 338 |
if ($form->{kne}) {
|
| 340 | 339 |
my @filenames = DATEV->kne_export(\%myconfig, \%$form); |
| ... | ... | |
| 364 | 363 |
sub download {
|
| 365 | 364 |
$lxdebug->enter_sub(); |
| 366 | 365 |
|
| 366 |
$auth->assert('datev_export');
|
|
| 367 |
|
|
| 367 | 368 |
my $tmp_name = Common->tmpname(); |
| 368 | 369 |
my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip",
|
| 369 | 370 |
localtime(time())); |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.