From: Sven Schöling Date: Thu, 22 Mar 2007 15:41:41 +0000 (+0000) Subject: und nochmal das debugging korrigiert X-Git-Tag: release-2.4.3^2~585 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=8f22296683049a5d5824ae361cf789d57b60766c;p=kivitendo-erp.git und nochmal das debugging korrigiert --- diff --git a/SL/DBUtils.pm b/SL/DBUtils.pm index 7145dc2e6..1ded2d271 100644 --- a/SL/DBUtils.pm +++ b/SL/DBUtils.pm @@ -28,14 +28,13 @@ sub conv_dateq { 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 { @@ -88,6 +87,7 @@ sub quote_db_date { 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 {