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