Revision 191a0e0d
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 30 | 30 |
sub do_query {
|
| 31 | 31 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 32 | 32 |
|
| 33 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 33 |
dump_query(LXDebug::QUERY, '', $query, @_); |
|
| 34 | 34 |
|
| 35 | 35 |
if (0 == scalar(@_)) {
|
| 36 | 36 |
$dbh->do($query) || $form->dberror($query); |
| ... | ... | |
| 45 | 45 |
sub do_statement {
|
| 46 | 46 |
my ($form, $sth, $query) = splice(@_, 0, 3); |
| 47 | 47 |
|
| 48 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 48 |
dump_query(LXDebug::QUERY, '', $query, @_); |
|
| 49 | 49 |
|
| 50 | 50 |
if (0 == scalar(@_)) {
|
| 51 | 51 |
$sth->execute() || $form->dberror($query); |
| ... | ... | |
| 85 | 85 |
sub prepare_execute_query {
|
| 86 | 86 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 87 | 87 |
|
| 88 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 88 |
dump_query(LXDebug::QUERY, '', $query, @_); |
|
| 89 | 89 |
|
| 90 | 90 |
my $sth = $dbh->prepare($query) || $form->dberror($query); |
| 91 | 91 |
if (scalar(@_) != 0) {
|
Auch abrufbar als: Unified diff
dump_query ersetzt bereits ?-Parameter durch ihre eigentlichen Werte, weswegen sie nicht noch einmal an das Query angefügt werden müssen.