From 705b8473dadb67940c396af5519689506d1c0845 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 22 May 2009 11:10:52 +0000
Subject: [PATCH] Whitespace Purge + 2 Funktionen auf Debuglevel 2 gesetzt.

---
 SL/Auth.pm    | 32 ++++++++++++++++----------------
 SL/Inifile.pm |  4 ++--
 2 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 3e0dc0ad0..22cef8d0d 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -122,13 +122,13 @@ sub authenticate {
 }
 
 sub dbconnect {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
 
   my $self     = shift;
   my $may_fail = shift;
 
   if ($self->{dbh}) {
-    $main::lxdebug->leave_sub();
+    $main::lxdebug->leave_sub(2);
     return $self->{dbh};
   }
 
@@ -629,20 +629,20 @@ sub all_rights_full {
   my $locale = $main::locale;
 
   my @all_rights = (
-    ["--crm",			       $locale->text("CRM optional software")], 
-    ["crm_search",		       $locale->text("CRM search")], 
-    ["crm_new",			       $locale->text("CRM create customers, vendors and contacts")], 
-    ["crm_service",		       $locale->text("CRM services")], 
-    ["crm_admin",		       $locale->text("CRM admin")], 
-    ["crm_adminuser",		       $locale->text("CRM user")], 
-    ["crm_adminstatus",		       $locale->text("CRM status")], 
-    ["crm_email",		       $locale->text("CRM send email")], 
-    ["crm_termin",		       $locale->text("CRM termin")], 
-    ["crm_opportunity",		       $locale->text("CRM opportunity")], 
-    ["crm_knowhow",		       $locale->text("CRM know how")], 
-    ["crm_follow",		       $locale->text("CRM follow up")], 
-    ["crm_notices",		       $locale->text("CRM notices")], 
-    ["crm_other",		       $locale->text("CRM other")], 
+    ["--crm",			       $locale->text("CRM optional software")],
+    ["crm_search",		       $locale->text("CRM search")],
+    ["crm_new",			       $locale->text("CRM create customers, vendors and contacts")],
+    ["crm_service",		       $locale->text("CRM services")],
+    ["crm_admin",		       $locale->text("CRM admin")],
+    ["crm_adminuser",		       $locale->text("CRM user")],
+    ["crm_adminstatus",		       $locale->text("CRM status")],
+    ["crm_email",		       $locale->text("CRM send email")],
+    ["crm_termin",		       $locale->text("CRM termin")],
+    ["crm_opportunity",		       $locale->text("CRM opportunity")],
+    ["crm_knowhow",		       $locale->text("CRM know how")],
+    ["crm_follow",		       $locale->text("CRM follow up")],
+    ["crm_notices",		       $locale->text("CRM notices")],
+    ["crm_other",		       $locale->text("CRM other")],
     ["--master_data",                  $locale->text("Master Data")],
     ["customer_vendor_edit",           $locale->text("Create and edit customers and vendors")],
     ["part_service_assembly_edit",     $locale->text("Create and edit parts, services, assemblies")],
diff --git a/SL/Inifile.pm b/SL/Inifile.pm
index 2331ca771..846459d5f 100644
--- a/SL/Inifile.pm
+++ b/SL/Inifile.pm
@@ -38,7 +38,7 @@ package Inifile;
 use IO::File;
 
 sub new {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
 
   my ($type, $file, %options) = @_;
 
@@ -88,7 +88,7 @@ sub new {
   }
   close FH;
 
-  $main::lxdebug->leave_sub();
+  $main::lxdebug->leave_sub(2);
 
   return bless $self, $type;
 }
-- 
2.20.1