Revision 86f876b6
Von Udo Spallek vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 1345 | 1345 |
|
| 1346 | 1346 |
# Hier kommt dann die Plausibilit?tspr?fung der ELSTERSteuernummer |
| 1347 | 1347 |
if ($form->{elstersteuernummer} ne '000000000') {
|
| 1348 |
|
|
| 1348 | 1349 |
$form->{elster} = '1';
|
| 1349 |
open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
|
|
| 1350 |
|
|
| 1351 |
open my $ustvaconfig, ">", "$userspath/$filename" or $form->error("$filename : $!");
|
|
| 1350 | 1352 |
|
| 1351 | 1353 |
# create the config file |
| 1352 |
print CONF qq|# Configuration file for USTVA\n\n|;
|
|
| 1354 |
print {$ustvaconfig} qq|# Configuration file for USTVA\n\n|;
|
|
| 1353 | 1355 |
my $key = ''; |
| 1354 | 1356 |
foreach $key (sort @config) {
|
| 1355 | 1357 |
$form->{$key} =~ s/\\/\\\\/g;
|
| 1356 | 1358 |
# strip M |
| 1357 | 1359 |
$form->{$key} =~ s/\r\n/\n/g;
|
| 1358 | 1360 |
|
| 1359 |
print CONF qq|$key=|;
|
|
| 1361 |
print {$ustvaconfig} qq|$key=|;
|
|
| 1360 | 1362 |
if ($form->{$key} ne 'Y') {
|
| 1361 |
print CONF qq|$form->{$key}\n|;
|
|
| 1363 |
print {$ustvaconfig} qq|$form->{$key}\n|;
|
|
| 1362 | 1364 |
} |
| 1363 | 1365 |
if ($form->{$key} eq 'Y') {
|
| 1364 |
print CONF qq|checked \n|;
|
|
| 1366 |
print {$ustvaconfig} qq|checked \n|;
|
|
| 1365 | 1367 |
} |
| 1366 | 1368 |
} |
| 1367 |
print CONF qq|\n\n|;
|
|
| 1368 |
close CONF;
|
|
| 1369 |
print {$ustvaconfig} qq|\n\n|;
|
|
| 1370 |
close $ustvaconfig;
|
|
| 1369 | 1371 |
$form->{saved} = $locale->text('saved');
|
| 1370 | 1372 |
|
| 1371 | 1373 |
} else {
|
Auch abrufbar als: Unified diff
open, print, close: Lokale Namensraeume (aus r2391, r2393) auf private eingeschraenkt, weitere PerlBestPractices Aenderungen.
$category, $dpt_*, $project* Variablen entfernt, Weil USTVA nie Abteilungsweit, Projektweit oder bez. BWA anders dargestellt wird.
BWA wird geregelt duch get_accounts_g.