Revision ea1c5dfb
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 7 Jahren hinzugefügt
| SL/Presenter/Part.pm | ||
|---|---|---|
| 7 | 7 |
use SL::Locale::String qw(t8); |
| 8 | 8 |
|
| 9 | 9 |
use Exporter qw(import); |
| 10 |
our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation); |
|
| 10 |
our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation typeclass_abbreviation);
|
|
| 11 | 11 |
|
| 12 | 12 |
use Carp; |
| 13 | 13 |
|
| ... | ... | |
| 84 | 84 |
$obj && $obj->abbreviation ? t8($obj->abbreviation) : ''; |
| 85 | 85 |
} |
| 86 | 86 |
|
| 87 |
sub typeclass_abbreviation {
|
|
| 88 |
my ($self, $part) = @_; |
|
| 89 |
return '' if !$part || !$part->isa('SL::DB::Part');
|
|
| 90 |
return $self->type_abbreviation($part->part_type).$self->classification_abbreviation($part->classification_id); |
|
| 91 |
} |
|
| 92 |
|
|
| 87 | 93 |
# |
| 88 | 94 |
# shortcut for article type |
| 89 | 95 |
# |
Auch abrufbar als: Unified diff
Vereinfachte Abkürzungsmethode "typeclass_abbreviation" im Part Presenter