projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4491f15
)
Fehler von Datenbankqueires über $sth->execute statt $DBI::err
author
Sven Schöling
<s.schoeling@linet-services.de>
Thu, 20 Jun 2013 16:42:39 +0000
(18:42 +0200)
committer
Sven Schöling
<s.schoeling@linet-services.de>
Tue, 25 Jun 2013 12:22:27 +0000
(14:22 +0200)
SL/USTVA.pm
patch
|
blob
|
history
diff --git
a/SL/USTVA.pm
b/SL/USTVA.pm
index
a5db373
..
72bf0b1
100644
(file)
--- a/
SL/USTVA.pm
+++ b/
SL/USTVA.pm
@@
-518,9
+518,7
@@
sub query_finanzamt {
my $filename = "sql/$table.sql";
my $tst = $dbh->prepare("SELECT * FROM $table");
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>|;
#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>|;
@@
-529,7
+527,7
@@
sub query_finanzamt {
#execute second last call
my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr);
$dbh->disconnect();
#execute second last call
my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr);
$dbh->disconnect();
- }
+ }
;
$tst->finish();
#$dbh->disconnect();
$tst->finish();
#$dbh->disconnect();