Revision 3153715e
Von Tamino Steinert vor 6 Tagen hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
| 232 | 232 |
sub is_type {
|
| 233 | 233 |
my $self = shift; |
| 234 | 234 |
my $type = lc(shift || ''); |
| 235 |
die 'invalid type' unless $type =~ /^(?:part|service|assembly|assortment|parent_variant|variant)$/;
|
|
| 235 |
die 'invalid type' unless $type =~ /^(?:part|service|assembly|assortment)$/; |
|
| 236 | 236 |
|
| 237 | 237 |
return $self->type eq $type ? 1 : 0; |
| 238 | 238 |
} |
Auch abrufbar als: Unified diff
Varianten: FIX für alle Artikeltypen ermöglicht