Revision 66280da7
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 938 | 938 |
} |
| 939 | 939 |
|
| 940 | 940 |
# lookup department |
| 941 |
# hallo sven, ich bekomme hier einen internal server error, sehr wahrscheinlich weil bei meinen mandanten keine Abteilungen konfiguriert sind |
|
| 942 |
# $form->{department} = ( first { $_->{id} eq $form->{department_id} } @{ $form->{ALL_DEPARTMENTS} } )->{description} || '';
|
|
| 941 |
foreach my $dept (@{ $form->{ALL_DEPARTMENTS} }) {
|
|
| 942 |
next unless $dept->{id} eq $form->{department_id};
|
|
| 943 |
$form->{department} = $dept->{description};
|
|
| 944 |
last; |
|
| 945 |
} |
|
| 943 | 946 |
|
| 944 | 947 |
# sort items by partsgroup |
| 945 | 948 |
for $i (1 .. $form->{rowcount}) {
|
Auch abrufbar als: Unified diff
sicherer Algorithmus.