Revision 89821947
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
|
sub is_assembly { $_[0]->part_type eq 'assembly' }
|
||
|
sub is_service { $_[0]->part_type eq 'service' }
|
||
|
sub is_assortment { $_[0]->part_type eq 'assortment' }
|
||
|
sub is_parent_varient { $_[0]->part_type eq 'parent_variant' }
|
||
|
sub is_varient { $_[0]->part_type eq 'variant' }
|
||
|
sub is_parent_variant { $_[0]->part_type eq 'parent_variant' }
|
||
|
sub is_variant { $_[0]->part_type eq 'variant' }
|
||
|
|
||
|
sub type { return $_[0]->part_type; }
|
||
|
|
||
Auch abrufbar als: Unified diff
FIX: spelling