X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/127b0df30d75e3833072276961e36bcd26bc0663..deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44:/bin/mozilla/ustva.pl

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index 8c1b8a8f6..b66fead82 100644
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -196,7 +196,7 @@ sub report {
 
   # Which COA is in use?
 
-  $ustva->get_coa($form, \%myconfig);
+  $ustva->get_coa($form); # fetches coa and modifies some form variables
 
   my $template_ref = {
     openings         => $openings,
@@ -887,7 +887,8 @@ sub generate_ustva {
 
   } else
   {
-    #$form->parse_template(\%myconfig, $::lx_office_conf{paths}{userspath});
+   # add a prefix for ustva pos numbers, i.e.: 81 ->  post_ustva_81
+   $form->{"pos_ustva_$_"} = $form->{$_} for grep { m{^\d+} } keys %{ $form };
    $form->{title} = $locale->text('Advance turnover tax return');
 
    $form->header;
@@ -959,7 +960,7 @@ $::form->{title} = $::locale->text('Tax Office Preferences');
 
 # Which COA is in use?
 
-  $ustva->get_coa($::form, \%::myconfig);
+  $ustva->get_coa($::form); # fetches coa and modifies some form variables
 
   # hä? kann die weg?
   my $steuernummer_new = '';
@@ -1065,7 +1066,7 @@ sub config_step2 {
   $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
 
 
-  $ustva->get_coa($form, \%myconfig);
+  $ustva->get_coa($form); # fetches coa and modifies some form variables
 
   my $input_steuernummer = $ustva->steuernummer_input(
                              $form->{elsterland},
@@ -1167,7 +1168,7 @@ sub save {
 
   $::auth->assert('advance_turnover_tax_return');
 
-  my $filename = "$::form->{login}_$::form->{filename}";
+  my $filename = "$::myconfig{login}_$::form->{filename}";
   $filename =~ s|.*/||;
 
   #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen