Revision 2ee0204e
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self) = @_;
|
||
|
my $form = \%main::form;
|
||
|
|
||
|
# format dbconnect and dboptions string
|
||
|
dbconnect_vars($self, $self->{dbname});
|
||
| ... | ... | |
|
|
||
|
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();
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Falsche globale Variable %::form