From 2ee0204efeafb90ac85240c7d6d4057260006870 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 28 Feb 2012 12:48:58 +0100
Subject: [PATCH] Falsche globale Variable %::form

---
 SL/User.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/SL/User.pm b/SL/User.pm
index acbe5cf76..7ae2eb850 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -697,7 +697,6 @@ sub save_member {
   $main::lxdebug->enter_sub();
 
   my ($self) = @_;
-  my $form   = \%main::form;
 
   # format dbconnect and dboptions string
   dbconnect_vars($self, $self->{dbname});
@@ -708,7 +707,7 @@ sub save_member {
 
   my $dbh = SL::DBConnect->connect($self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd});
   if ($dbh) {
-    $self->create_employee_entry($form, $dbh, $self, 1);
+    $self->create_employee_entry($::form, $dbh, $self, 1);
     $dbh->disconnect();
   }
 
-- 
2.20.1