Revision 191a0e0d
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
|
sub do_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
|
||
|
if (0 == scalar(@_)) {
|
||
|
$dbh->do($query) || $form->dberror($query);
|
||
| ... | ... | |
|
sub do_statement {
|
||
|
my ($form, $sth, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
|
||
|
if (0 == scalar(@_)) {
|
||
|
$sth->execute() || $form->dberror($query);
|
||
| ... | ... | |
|
sub prepare_execute_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
|
||
|
my $sth = $dbh->prepare($query) || $form->dberror($query);
|
||
|
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.