bei oe suche wurde der Mitarbeiter nicht im callback mitgefuehrt

[kivitendo-erp.git] / SL / LXDebug.pm

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 6da1a72..684a1e7 100644 (file)
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -14,6 +14,8 @@ use constant STDERR_TARGET => 1;
 
 use POSIX qw(strftime);
 
+use YAML;
+
 my $data_dumper_available;
 
 our $global_level;
@@ -125,7 +127,9 @@ sub dump {
   my ($self, $level, $name, $variable) = @_;
 
   if ($data_dumper_available) {
-    $self->message($level, "dumping ${name}:\n" . Dumper($variable));
+    my $dumper = Data::Dumper->new([$variable]);
+    $dumper->Sortkeys(1);
+    $self->message($level, "dumping ${name}:\n" . $dumper->Dump());
   } else {
     $self->message($level,
                    "dumping ${name}: Data::Dumper not available; "
@@ -133,6 +137,40 @@ sub dump {
   }
 }
 
+sub dump_yaml {
+  my ($self, $level, $name, $variable) = @_;
+
+  $self->message($level, "dumping ${name}:\n" . YAML::Dump($variable));
+}
+
+sub dump_sql_result {
+  my ($self, $level, $prefix, $results) = @_;
+
+  if (!$results || !scalar @{ $results }) {
+    $self->message($level, "Empty result set");
+    return;
+  }
+
+  my %column_lengths = map { $_, length $_ } keys %{ $results->[0] };
+
+  foreach my $row (@{ $results }) {
+    map { $column_lengths{$_} = length $row->{$_} if (length $row->{$_} > $column_lengths{$_}) } keys %{ $row };
+  }
+
+  my @sorted_names = sort keys %column_lengths;
+  my $format       = join '|', map { '%' . $column_lengths{$_} . 's' } @sorted_names;
+
+  $prefix .= ' ' if $prefix;
+
+  $self->message($level, $prefix . sprintf($format, @sorted_names));
+  $self->message($level, $prefix . join('+', map { '-' x $column_lengths{$_} } @sorted_names));
+
+  foreach my $row (@{ $results }) {
+    $self->message($level, $prefix . sprintf($format, map { $row->{$_} } @sorted_names));
+  }
+  $self->message($level, $prefix . sprintf('(%d row%s)', scalar @{ $results }, scalar @{ $results } > 1 ? 's' : ''));
+}
+
 sub enable_sub_tracing {
   my ($self) = @_;
   $self->{level} | TRACE;