Revision 56b91fb4
Von Bernd Bleßmann vor mehr als 11 Jahren hinzugefügt
SL/DB/Invoice.pm | ||
---|---|---|
47 | 47 |
|
48 | 48 |
sub items { goto &invoiceitems; } |
49 | 49 |
|
50 |
sub items_sorted { |
|
51 |
my ($self) = @_; |
|
52 |
|
|
53 |
my @sorted = sort {$a->id <=> $b->id } @{ $self->items }; |
|
54 |
return wantarray ? @sorted : \@sorted; |
|
55 |
} |
|
56 |
|
|
50 | 57 |
sub is_sales { |
51 | 58 |
# For compatibility with Order, DeliveryOrder |
52 | 59 |
croak 'not an accessor' if @_ > 1; |
Auch abrufbar als: Unified diff
neue Methode items_sorted für Order, DeliveryOrder, Invoice, PurchaseInvoice