Revision d4b17776
Von Sven Schöling vor etwa 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.