Revision 8f222966
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
|
|
||
|
sub do_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
if (0 == scalar(@_)) {
|
||
|
$dbh->do($query) || $form->dberror($query);
|
||
|
} else {
|
||
|
$dbh->do($query, undef, @_) ||
|
||
|
$form->dberror($query . " (" . join(", ", @_) . ")");
|
||
|
}
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")");
|
||
|
}
|
||
|
|
||
|
sub selectrow_query {
|
||
| ... | ... | |
|
sub prepare_execute_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
my $sth = $dbh->prepare($query) || $form->dberror($query);
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
if (scalar(@_) != 0) {
|
||
|
$sth->execute(@_) || $form->dberror($query . " (" . join(", ", @_) . ")");
|
||
|
} else {
|
||
Auch abrufbar als: Unified diff
und nochmal das debugging korrigiert