Revision 1230932e
Von Sven Schöling vor fast 3 Jahren hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
| 82 | 82 |
goto &order_type; |
| 83 | 83 |
} |
| 84 | 84 |
|
| 85 |
sub is_type {
|
|
| 86 |
return shift->type eq shift; |
|
| 87 |
} |
|
| 88 |
|
|
| 85 | 89 |
sub displayable_type {
|
| 86 | 90 |
my $type = shift->type; |
| 87 | 91 |
|
Auch abrufbar als: Unified diff
DeliveryOrder: is_type Methode