Revision d4b17776
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
2021 | 2021 |
|
2022 | 2022 |
my ($self, $dbh) = @_; |
2023 | 2023 |
|
2024 |
$dbh ||= $self->get_standard_dbh(\%main::myconfig); |
|
2025 |
|
|
2024 | 2026 |
my $query = qq|SELECT id, name FROM employee WHERE login = ?|; |
2025 | 2027 |
($self->{"employee_id"}, $self->{"employee"}) = selectrow_query($self, $dbh, $query, $self->{login}); |
2026 | 2028 |
$self->{"employee_id"} *= 1; |
Auch abrufbar als: Unified diff
form->get_employee nimmt sich bei Bedarf eine eigene dbh.