Revision a5419c17
Von Werner Hahn vor 6 Monaten hinzugefügt
- ID a5419c17b2553d59cd1369ca322115015ac05252
- Vorgänger 86d460a0
| SL/DB/Manager/PartsGroup.pm | ||
|---|---|---|
|
return \@list;
|
||
|
}
|
||
|
|
||
|
sub data_partsgroup_dropdown {
|
||
|
my ($name, %params);
|
||
|
my $partsgroup = get_hierarchy;
|
||
|
my $partsgroup_hierarchie;
|
||
|
foreach my $pg (@{$partsgroup}) {
|
||
|
next if $pg->{obsolete};
|
||
|
$pg->{partsgroup} = "| " x $pg->{level} . $pg->{partsgroup};
|
||
|
push @{$partsgroup_hierarchie}, $pg;
|
||
|
}
|
||
|
return $partsgroup_hierarchie;
|
||
|
}
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
PartGroup: auch in deiversen Dropdown Partsgroup hierarchisch darstellen