@@ -1229,12 +1320,13 @@ sub edit_form {
@@ -1248,23 +1340,31 @@ sub edit_form {
+ -->
-
+
|;
- if ( $form->{warnung} eq "1" ){
+
+ if ($form->{warnung} eq "1") {
print qq|
-
-
+
+
|;
} else {
print qq|
-
+
|;
}
@@ -1278,14 +1378,14 @@ sub edit_form {
|;
my @variables = qw(FA_steuerberater_name FA_steuerberater_street
- FA_steuerberater_city FA_steuerberater_tel
- FA_voranmeld method
- FA_dauerfrist FA_71 FA_Name elster
- path login password type elster_init saved
- );
+ FA_steuerberater_city FA_steuerberater_tel
+ FA_voranmeld method
+ FA_dauerfrist FA_71 FA_Name elster
+ path login password type elster_init saved
+ );
my $variable = '';
foreach $variable (@variables) {
- print qq|
+ print qq|
|;
}
print qq|
@@ -1299,106 +1399,115 @@ sub edit_form {
$lxdebug->leave_sub();
}
-
sub create_steuernummer {
$lxdebug->enter_sub();
- my $part=$form->{part};
- my $patterncount = $form->{patterncount};
- my $delimiter = $form->{delimiter};
+ my $part = $form->{part};
+ my $patterncount = $form->{patterncount};
+ my $delimiter = $form->{delimiter};
my $elster_pattern = $form->{elster_pattern};
+
# rebuild steuernummer and elstersteuernummer
# es gibt eine gespeicherte steuernummer $form->{steuernummer}
- # und die parts und delimiter
-
- my $h =0;
- my $i =0;
-
- my $steuernummer_new = $part;
+ # und die parts und delimiter
+
+ my $h = 0;
+ my $i = 0;
+
+ my $steuernummer_new = $part;
my $elstersteuernummer_new = $form->{elster_FFFF};
$elstersteuernummer_new .= '0';
-
- for ( $h = 1; $h < $patterncount; $h++) {
+
+ for ($h = 1; $h < $patterncount; $h++) {
$steuernummer_new .= qq|$delimiter|;
- for (my $i = 1; $i <= length($elster_pattern); $i++ ) {
- $steuernummer_new .= $form->{"part_$h\_$i"};
+ for (my $i = 1; $i <= length($elster_pattern); $i++) {
+ $steuernummer_new .= $form->{"part_$h\_$i"};
$elstersteuernummer_new .= $form->{"part_$h\_$i"};
}
}
- if ($form->{steuernummer} ne $steuernummer_new){
- $form->{steuernummer} = $steuernummer_new;
+ if ($form->{steuernummer} ne $steuernummer_new) {
+ $form->{steuernummer} = $steuernummer_new;
$form->{elstersteuernummer} = $elstersteuernummer_new;
- $form->{steuernummer_new} = $steuernummer_new;
- } else{
- $form->{steuernummer_new} = '';
- $form->{elstersteuernummer_new} = '';
+ $form->{steuernummer_new} = $steuernummer_new;
+ } else {
+ $form->{steuernummer_new} = '';
+ $form->{elstersteuernummer_new} = '';
}
$lxdebug->leave_sub();
}
-
sub get_config {
$lxdebug->enter_sub();
my ($userpath, $filename) = @_;
- my ($key, $value) = '';
- open(FACONF, "$userpath/$filename") or $form->error("$userpath/$filename : $!");
- while () {
- last if /^\[/;
- next if /^(#|\s)/;
- # remove comments
- s/\s#.*//g;
- # remove any trailing whitespace
- s/^\s*(.*?)\s*$/$1/;
- ($key, $value) = split /=/, $_, 2;
- #if ($value eq ' '){
- # $form->{$key} = " " ;
- #} elsif ($value ne ' '){
- $form->{$key} = "$value";
- #}
- }
+ my ($key, $value) = '';
+ open(FACONF, "$userpath/$filename")
+ or $form->error("$userpath/$filename : $!");
+ while () {
+ last if /^\[/;
+ next if /^(#|\s)/;
+
+ # remove comments
+ s/\s#.*//g;
+
+ # remove any trailing whitespace
+ s/^\s*(.*?)\s*$/$1/;
+ ($key, $value) = split /=/, $_, 2;
+
+ #if ($value eq ' '){
+ # $form->{$key} = " " ;
+ #} elsif ($value ne ' '){
+ $form->{$key} = "$value";
+
+ #}
+ }
close FACONF;
+
# Textboxen formatieren: Linebreaks entfernen
#
#$form->{FA_Oeffnungszeiten} =~ s/\\\\n/ /g;
$lxdebug->leave_sub();
}
-
-
sub save {
$lxdebug->enter_sub();
my $filename = $form->{filename};
+
#zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
create_steuernummer;
+
# Textboxen formatieren: Linebreaks entfernen
#
$form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
+
#URL mit http:// davor?
$form->{FA_Internet} =~ s/^http:\/\///;
- $form->{FA_Internet} = 'http://'. $form->{FA_Internet};
-
- my @config = qw(elster elsterland elstersteuernummer steuernummer
- elsteramt elsterFFFF FA_Name FA_Strasse
- FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden
- FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1
- FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
- FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
- FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
- FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
- FA_71 FA_dauerfrist);
+ $form->{FA_Internet} = 'http://' . $form->{FA_Internet};
+
+ my @config = qw(elster elsterland elstersteuernummer steuernummer
+ elsteramt elsterFFFF FA_Name FA_Strasse
+ FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden
+ FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1
+ FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
+ FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
+ FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
+ FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
+ FA_71 FA_dauerfrist);
+
# Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
- if ( $form->{elstersteuernummer} ne '000000000' ) {
- $form->{elster}='1';
+ if ($form->{elstersteuernummer} ne '000000000') {
+ $form->{elster} = '1';
open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
+
# create the config file
print CONF qq|# Configuration file for USTVA\n\n|;
- my $key = '';
+ my $key = '';
foreach $key (sort @config) {
$form->{$key} =~ s/\\/\\\\/g;
$form->{$key} =~ s/"/\\"/g;
+
# strip M
$form->{$key} =~ s/\r\n/\n/g;
- print CONF qq|$key=|;
+ print CONF qq|$key=|;
if ($form->{$key} ne 'Y') {
print CONF qq|$form->{$key}\n|;
}
@@ -1409,9 +1518,9 @@ sub save {
print CONF qq|\n\n|;
close CONF;
$form->{saved} = $locale->text('saved');
-
+
} else {
-
+
$form->{saved} = $locale->text('Bitte eine Steuernummer angeben');
}
@@ -1421,15 +1530,18 @@ sub save {
sub show_fa_daten {
$lxdebug->enter_sub();
- my $readonly = $_;
- my $oeffnungszeiten = $form->{FA_Oeffnungszeiten} ;
+ my $readonly = $_;
+ my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
$oeffnungszeiten =~ s/\\\\n/\n/g;
print qq|
|