1 Eintrag, 1 Seite |
1
2
3
4
5
6
7
sub commit_cmd {
my $cmd = shift;
my $line = shift || 'keine Angabe';
die "commit_cmd: kein Befehl angegeben \nAufgrufen in Zeile: '$line'" unless defined $cmd;
die($dbh->errstr, "Error in executing Sql-Statement:\n\t$cmd\nAufgrufen in Zeile: '$line'" ) unless $dbh->do($cmd);
die $sth->errstr if $sth->err;
} # commit_cmd
1 Eintrag, 1 Seite |