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;
}
&& $self->do_insert_tax()
&& $self->do_insert_taxkeys()
&& $self->do_insert_buchungsgruppen()
- ;
+ ? 1 : 0;
}
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;
);
- 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;
}