Revision fa45de43
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
SL/USTVA.pm | ||
---|---|---|
518 | 518 |
my $filename = "sql/$table.sql"; |
519 | 519 |
|
520 | 520 |
my $tst = $dbh->prepare("SELECT * FROM $table"); |
521 |
$tst->execute; |
|
522 |
if ($DBI::err) { |
|
523 |
|
|
521 |
$tst->execute || do { |
|
524 | 522 |
#There is no table, read the table from sql/finanzamt.sql |
525 | 523 |
print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank: |
526 | 524 |
$myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugefügt...</p>|; |
... | ... | |
529 | 527 |
#execute second last call |
530 | 528 |
my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr); |
531 | 529 |
$dbh->disconnect(); |
532 |
} |
|
530 |
};
|
|
533 | 531 |
$tst->finish(); |
534 | 532 |
|
535 | 533 |
#$dbh->disconnect(); |
Auch abrufbar als: Unified diff
Fehler von Datenbankqueires über $sth->execute statt $DBI::err