Revision 818a31fa
Von Sven Schöling vor etwa 10 Jahren hinzugefügt
| SL/DB/Business.pm | ||
|---|---|---|
| 18 | 18 |
return @errors; |
| 19 | 19 |
} |
| 20 | 20 |
|
| 21 |
sub displayable_name {
|
|
| 22 |
my $self = shift; |
|
| 23 |
|
|
| 24 |
return join ' ', grep $_, $self->id, $self->description; |
|
| 25 |
} |
|
| 26 |
|
|
| 21 | 27 |
1; |
| SL/DB/PartsGroup.pm | ||
|---|---|---|
| 19 | 19 |
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. |
| 20 | 20 |
__PACKAGE__->meta->make_manager_class; |
| 21 | 21 |
|
| 22 |
sub displayable_name {
|
|
| 23 |
my $self = shift; |
|
| 24 |
|
|
| 25 |
return join ' ', grep $_, $self->id, $self->partsgroup; |
|
| 26 |
} |
|
| 27 |
|
|
| 22 | 28 |
1; |
| SL/DB/Pricegroup.pm | ||
|---|---|---|
| 7 | 7 |
|
| 8 | 8 |
__PACKAGE__->meta->initialize; |
| 9 | 9 |
|
| 10 |
sub displayable_name {
|
|
| 11 |
my $self = shift; |
|
| 12 |
|
|
| 13 |
return join ' ', grep $_, $self->id, $self->pricegroup; |
|
| 14 |
} |
|
| 15 |
|
|
| 16 |
|
|
| 10 | 17 |
1; |
Auch abrufbar als: Unified diff
displayable_name für business, partsgroup, pricegroup