Revision 0a6affab
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 34 | 34 |
|
| 35 | 35 |
package OE; |
| 36 | 36 |
|
| 37 |
use List::Util qw(max); |
|
| 37 |
use List::Util qw(max first);
|
|
| 38 | 38 |
|
| 39 | 39 |
use SL::AM; |
| 40 | 40 |
use SL::Common; |
| ... | ... | |
| 928 | 928 |
|
| 929 | 929 |
push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
|
| 930 | 930 |
|
| 931 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
|
|
| 931 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
|
|
| 932 |
'departments' => 'ALL_DEPARTMENTS'); |
|
| 932 | 933 |
my %price_factors; |
| 933 | 934 |
|
| 934 | 935 |
foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
|
| ... | ... | |
| 937 | 938 |
$pfac->{formatted_factor} = $form->format_amount($myconfig, $pfac->{factor});
|
| 938 | 939 |
} |
| 939 | 940 |
|
| 941 |
# lookup department |
|
| 942 |
$form->{department} = ( first { $_->{id} eq $form->{department_id} } @{ $form->{ALL_DEPARTMENTS} } )->{description} || '';
|
|
| 943 |
|
|
| 940 | 944 |
# sort items by partsgroup |
| 941 | 945 |
for $i (1 .. $form->{rowcount}) {
|
| 942 | 946 |
$partsgroup = ""; |
Auch abrufbar als: Unified diff
Patch für Bug 878.
Department jetzt in sämtlichen OE Masken als department_id und department verfügbar.