Revision 2ee0204e
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
SL/User.pm | ||
---|---|---|
697 | 697 |
$main::lxdebug->enter_sub(); |
698 | 698 |
|
699 | 699 |
my ($self) = @_; |
700 |
my $form = \%main::form; |
|
701 | 700 |
|
702 | 701 |
# format dbconnect and dboptions string |
703 | 702 |
dbconnect_vars($self, $self->{dbname}); |
... | ... | |
708 | 707 |
|
709 | 708 |
my $dbh = SL::DBConnect->connect($self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd}); |
710 | 709 |
if ($dbh) { |
711 |
$self->create_employee_entry($form, $dbh, $self, 1); |
|
710 |
$self->create_employee_entry($::form, $dbh, $self, 1);
|
|
712 | 711 |
$dbh->disconnect(); |
713 | 712 |
} |
714 | 713 |
|
Auch abrufbar als: Unified diff
Falsche globale Variable %::form