projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automatischen Zeilenumbruch in bestimmten Tabellenzellen in Einkaufs- und Verkaufsmas...
[kivitendo-erp.git]
/
SL
/
DBUtils.pm
diff --git
a/SL/DBUtils.pm
b/SL/DBUtils.pm
index
da38640
..
46fe23f
100644
(file)
--- a/
SL/DBUtils.pm
+++ b/
SL/DBUtils.pm
@@
-67,6
+67,12
@@
sub do_statement {
sub dump_query {
my ($level, $msg, $query) = splice(@_, 0, 3);
sub dump_query {
my ($level, $msg, $query) = splice(@_, 0, 3);
+ my $filename = $self_filename = 'SL/DBUtils.pm';
+ my $caller_level;
+ while ($filename eq $self_filename) {
+ (undef, $filename, $line, $subroutine) = caller $caller_level++;
+ }
+
while ($query =~ /\?/) {
my $value = shift(@_);
$value =~ s/\'/\\\'/g;
while ($query =~ /\?/) {
my $value = shift(@_);
$value =~ s/\'/\\\'/g;
@@
-78,7
+84,9
@@
sub dump_query {
$msg .= " " if ($msg);
$msg .= " " if ($msg);
- $main::lxdebug->message($level, $msg . $query);
+ my $info = "$subroutine called from $filename:$line\n";
+
+ $main::lxdebug->message($level, $info . $msg . $query);
}
sub quote_db_date {
}
sub quote_db_date {