Revision 0f2d4920
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 861 | 861 |
my $accno; |
| 862 | 862 |
my $ref; |
| 863 | 863 |
|
| 864 |
#print $query; |
|
| 864 |
# Show all $query in Debuglevel LXDebug::QUERY |
|
| 865 |
$callingdetails = (caller (0))[3]; |
|
| 866 |
$main::lxdebug->message(LXDebug::QUERY, "$callingdetails \$query=\n $query"); |
|
| 867 |
|
|
| 865 | 868 |
my $sth = $dbh->prepare($query); |
| 866 | 869 |
$sth->execute || $form->dberror($query); |
| 867 | 870 |
|
Auch abrufbar als: Unified diff
Some debug messages for debuglevel LXDebug::QUERY