X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2FUSTVA_at.pl;h=613e01e1e024d186ee795ed63c92dd2002e973f5;hb=2d44a547200a198e1c544c41152aa7c2df910e51;hp=2cffc3d787dfe317b12e4d71f785c226e1f66d7e;hpb=347f2cff58f8d798bb0fe52495fb09b4e08db036;p=kivitendo-erp.git

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;
 }