Revision 8f222966
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 28 | 28 |
|
| 29 | 29 |
sub do_query {
|
| 30 | 30 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 31 |
|
|
| 31 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 32 | 32 |
if (0 == scalar(@_)) {
|
| 33 | 33 |
$dbh->do($query) || $form->dberror($query); |
| 34 | 34 |
} else {
|
| 35 | 35 |
$dbh->do($query, undef, @_) || |
| 36 | 36 |
$form->dberror($query . " (" . join(", ", @_) . ")");
|
| 37 | 37 |
} |
| 38 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")");
|
|
| 39 | 38 |
} |
| 40 | 39 |
|
| 41 | 40 |
sub selectrow_query {
|
| ... | ... | |
| 88 | 87 |
sub prepare_execute_query {
|
| 89 | 88 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 90 | 89 |
my $sth = $dbh->prepare($query) || $form->dberror($query); |
| 90 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 91 | 91 |
if (scalar(@_) != 0) {
|
| 92 | 92 |
$sth->execute(@_) || $form->dberror($query . " (" . join(", ", @_) . ")");
|
| 93 | 93 |
} else {
|
Auch abrufbar als: Unified diff
und nochmal das debugging korrigiert