From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 28 Feb 2012 11:48:58 +0000 (+0100)
Subject: Falsche globale Variable %::form
X-Git-Tag: release-2.7.0~9
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2ee0204efeafb90ac85240c7d6d4057260006870;p=kivitendo-erp.git

Falsche globale Variable %::form
---

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();
   }