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