X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLXDebug.pm;h=80b41f95a091a5da28baa13caf19fe9d983d4148;hb=fb03d191f53516cbf1022e755665556e7f1acb82;hp=d98d36a1af304393727f158475aef27e5f346b40;hpb=e855756795da07e79807b8cf1a31cfea8d253d61;p=kivitendo-erp.git

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index d98d36a1a..80b41f95a 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -129,10 +129,10 @@ sub show_backtrace {
 
   return 1 unless ($force || ($global_level & BACKTRACE_ON_ERROR));
 
-  $self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:");
+  $self->message(0, "Starting full caller dump:");
   my $level = 0;
   while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
-    $self->message(BACKTRACE_ON_ERROR, "  ${subroutine} from ${filename}:${line}");
+    $self->message(0, "  ${subroutine} from ${filename}:${line}");
     $level++;
   }
 
@@ -213,6 +213,17 @@ sub dump_sql_result {
   $self->message($level, $prefix . sprintf('(%d row%s)', scalar @{ $results }, scalar @{ $results } > 1 ? 's' : ''));
 }
 
+sub dump_object {
+  my ($self, $level, $text, $object) = @_;
+
+  my $copy;
+  if ($object) {
+    $copy->{$_} = $object->$_ for $object->meta->columns;
+  }
+
+  $self->dump($level, $text, $copy);
+}
+
 sub show_diff {
   my ($self, $level, $item1, $item2, %params) = @_;
 
@@ -350,7 +361,7 @@ sub log_request {
 
   my $template = <<EOL;
 *************************************
- GET $ENV{SCRIPT_NAME}    $session_id ($::myconfig{login})
+ $ENV{REQUEST_METHOD} $ENV{SCRIPT_NAME}    $session_id ($::myconfig{login})
    routing: $type, controller: $controller, action: $action
 EOL