Revision 5b192e71
Von Moritz Bunkus vor mehr als 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; |
SL/DB/Vendor.pm | ||
---|---|---|
39 | 39 |
return 1; |
40 | 40 |
} |
41 | 41 |
|
42 |
sub is_customer { 0 }; |
|
43 |
sub is_vendor { 1 }; |
|
44 |
|
|
42 | 45 |
1; |
Auch abrufbar als: Unified diff
Customer-/Vendor-Models: Funktionen "is_customer"/"is_vendor" zur einfachen Unterscheidung