Revision 8b2313ef
Von Werner Hahn vor mehr als 6 Jahren hinzugefügt
| SL/DB/ShopOrder.pm | ||
|---|---|---|
| 103 | 103 |
return $order; |
| 104 | 104 |
}; |
| 105 | 105 |
|
| 106 |
sub compare_to {
|
|
| 107 |
my ($self, $other) = @_; |
|
| 108 |
|
|
| 109 |
return 1 if $self->transfer_date && !$other->transfer_date; |
|
| 110 |
return -1 if !$self->transfer_date && $other->transfer_date; |
|
| 111 |
|
|
| 112 |
my $result = 0; |
|
| 113 |
$result = $self->transfer_date <=> $other->transfer_date if $self->transfer_date; |
|
| 114 |
return $result || ($self->id <=> $other->id); |
|
| 115 |
} |
|
| 116 |
|
|
| 106 | 117 |
1; |
Auch abrufbar als: Unified diff
Shopmodul: RecordLinks - Vernüpfte Belege gefixt(bei 2 Shoporder),Linktext anstatt id shop_ordernumber