Revision d85c9c95
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
|
) . "]";
|
||
|
}
|
||
|
|
||
|
sub variant_values_sortkey {
|
||
|
my ($self) = @_;
|
||
|
join('',
|
||
|
map { (10000 + $_->variant_property->sortkey ) . (10000 + $_->sortkey) }
|
||
|
sort { $a->variant_property->sortkey <=> $b->variant_property->sortkey }
|
||
|
@{$self->variant_property_values}
|
||
|
)
|
||
|
};
|
||
|
|
||
|
sub variant_value {
|
||
|
my ($self, $variant_property) = @_;
|
||
|
die "only callable on parts of type parent_variant" unless $self->is_variant;
|
||
Auch abrufbar als: Unified diff
Varianten: Helferfunktion zum Sortieren von Varianten eines Stammartikel