Revision 5b192e71
Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt
| SL/DB/Customer.pm | ||
|---|---|---|
| 51 | 51 |
return join ' ', grep $_, $self->customernumber, $self->name; |
| 52 | 52 |
} |
| 53 | 53 |
|
| 54 |
sub is_customer { 1 };
|
|
| 55 |
sub is_vendor { 0 };
|
|
| 56 |
|
|
| 54 | 57 |
1; |
Auch abrufbar als: Unified diff
Customer-/Vendor-Models: Funktionen "is_customer"/"is_vendor" zur einfachen Unterscheidung