X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a23454bb1b039a31b7f77710ff663fa9152d530c..5771d385e2f5d65ba0f3c260f52f20ef9af9b2c9:/sql/Pg-upgrade2/USTVA_at.pl

diff --git a/sql/Pg-upgrade2/USTVA_at.pl b/sql/Pg-upgrade2/USTVA_at.pl
index 2cffc3d78..613e01e1e 100644
--- a/sql/Pg-upgrade2/USTVA_at.pl
+++ b/sql/Pg-upgrade2/USTVA_at.pl
@@ -12,7 +12,7 @@ sub run {
   my ($self) = @_;
 
   if (!$self->check_coa('Austria')) {
-    print qq|Nichts zu tun in diesem Kontenrahmen.|;
+#    print qq|Nichts zu tun in diesem Kontenrahmen.|;
     return 1;
   }
 
@@ -36,7 +36,7 @@ sub run {
     && $self->do_insert_tax()
     && $self->do_insert_taxkeys()
     && $self->do_insert_buchungsgruppen()
-      ;
+    ? 1 : 0;
 }
 
 sub clear_tables {
@@ -48,7 +48,7 @@ sub clear_tables {
       q{ DELETE FROM tax.report_variables; },
   );
 
-  map({ $self->db_query("DELETE FROM $_ ;", 0); } @clear);
+  $self->db_query("DELETE FROM $_") for @clear;
 
   return 1;
 
@@ -303,11 +303,7 @@ sub do_insert_chart {
 
   );
 
-  for my $statement ( 0 .. $#copy_statements ) {
-    my $query = $copy_statements[$statement];
-      #print $query . "<br />";  # Diagnose only!
-      $self->db_query($query, 0);
-  }
+  $self->db_query($_) for @copy_statements;
 
   return 1;
 }