| … | |
… | |
| 2600 | $self->check_size; |
2600 | $self->check_size; |
| 2601 | } |
2601 | } |
| 2602 | |
2602 | |
| 2603 | sub set_items { |
2603 | sub set_items { |
| 2604 | my ($self, $items) = @_; |
2604 | my ($self, $items) = @_; |
| 2605 | my @items = values %{$items}; |
|
|
| 2606 | @items = sort { $a->{type} <=> $b->{type} } @items; |
2605 | my @items = sort { $a->{type} <=> $b->{type} } @$items; |
| 2607 | |
2606 | |
| 2608 | $self->{real_items} = \@items; |
2607 | $self->{real_items} = \@items; |
| 2609 | |
2608 | |
| 2610 | for my $item (@items) { |
2609 | for my $item (@items) { |
| 2611 | my $desc = $item->{nrof} < 2 |
2610 | my $desc = $item->{nrof} < 2 |
