From 02d89fd6d97ae79e824d4d4c969e0ce0a2fed670 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 22 Jul 2008 09:42:23 +0000
Subject: [PATCH] Weitere Unterfunktionen tracen lassen.

---
 SL/Form.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/SL/Form.pm b/SL/Form.pm
index 5d00a1c90..71fadb515 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -771,6 +771,8 @@ sub parse_html_template {
 }
 
 sub show_generic_error {
+  $main::lxdebug->enter_sub();
+
   my ($self, $error, %params) = @_;
 
   my $add_params = {
@@ -797,10 +799,14 @@ sub show_generic_error {
   $self->header();
   print $self->parse_html_template("generic/error", $add_params);
 
+  $main::lxdebug->leave_sub();
+
   die("Error: $error\n");
 }
 
 sub show_generic_information {
+  $main::lxdebug->enter_sub();
+
   my ($self, $text, $title) = @_;
 
   my $add_params = {
@@ -813,6 +819,8 @@ sub show_generic_information {
   $self->header();
   print $self->parse_html_template("generic/information", $add_params);
 
+  $main::lxdebug->leave_sub();
+
   die("Information: $error\n");
 }
 
-- 
2.20.1