USTVA Weiteren toten Code identifizieren - Werte mit Key undef ignorieren

Die summen Abfrage erzeugt auch Werte ohne pos_ustva (category)
Diese brauchen nicht weiter verarbeitet zu werden.

diff --git a/SL/USTVA.pm b/SL/USTVA.pm
index e4fb191c0f6339a63adbc191666704fac9f5af4c..556698e8c09ab3e3409e21ce804dbb1342b1da7b 100644 (file)
--- a/SL/USTVA.pm
+++ b/SL/USTVA.pm
@@ -845,7 +845,7 @@ sub get_accounts_ustva {
   $sth->execute || $form->dberror($query);
 
   while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
-    # Bug 365 solved?!
+    next unless $ref->{$category};
     $ref->{amount} *= -1;
     $form->{ $ref->{$category} } += $ref->{amount};
   }

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index 49f4727d5bcdc5378082520558fa55eb895ca91d..3f0b0a296ac8226018b4ac9758505f362e6e95b0 100644 (file)
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -702,9 +702,8 @@ sub generate_ustva {
 
   } else  # Outputformat for generic output
   {
-
+    die ("not used anymore");
     $form->{USTVA} = [];
-
     if ( $form->{format} eq 'generic') { # Formatierungen für HTML Ausgabe
 
       my $rec_ref = {};
@@ -733,7 +732,7 @@ sub generate_ustva {
   $form->{templates} = "doc" if ( $form->{type} eq 'help' );
 
   if ($form->{format} eq 'generic'){
-
+    die ("not used anymore");
     $form->header();
 
     my $template_ref = {
@@ -743,6 +742,7 @@ sub generate_ustva {
     print($form->parse_html_template('ustva/generic_taxreport', $template_ref));
 
   } elsif ( $form->{format} eq 'elstertaxbird' ) {
+   die ("not used anymore");
    $form->parse_template(\%myconfig);
   } else
   {