Revision 4bd1e2f8
Von Sven Schöling vor etwa 9 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 59 | 59 |
require SL::DB::Employee; |
| 60 | 60 |
require SL::DB::Inventory; |
| 61 | 61 |
|
| 62 |
my $employee = SL::DB::Manager::Employee->find_by(login => $::form->{login});
|
|
| 62 |
my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
|
|
| 63 | 63 |
my ($now) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|); |
| 64 | 64 |
my @directions = (undef, qw(out in transfer)); |
| 65 | 65 |
|
Auch abrufbar als: Unified diff
login nicht aus $::form nehmen. Teil 1