Revision 00b74acf
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 61 | 61 |
require SL::DB::Part; |
| 62 | 62 |
require SL::DB::Employee; |
| 63 | 63 |
|
| 64 |
my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
|
|
| 64 |
my $employee = SL::DB::Manager::Employee->current;
|
|
| 65 | 65 |
my ($now) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|); |
| 66 | 66 |
my @directions = (undef, qw(out in transfer)); |
| 67 | 67 |
|
Auch abrufbar als: Unified diff
WH: Employee::current statt manuell
(cherry picked from commit 975786bdc3c48380926c63e8a0b37109d144f0f2)
(cherry-pick von odyn)