Revision cf459685
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/DB/Unit.pm | ||
|---|---|---|
| 27 | 27 |
|
| 28 | 28 |
sub convertible_units {
|
| 29 | 29 |
my $self = shift; |
| 30 |
my $all_units = scalar(@_) && (ref($_[0]) eq 'ARRAY') ? $_[0] : \@_; |
|
| 31 |
$all_units = SL::DB::Manager::Unit->get_all if !@{ $all_units };
|
|
| 30 | 32 |
return [ |
| 31 | 33 |
sort { $a->sortkey <=> $b->sortkey }
|
| 32 | 34 |
grep { $_->unit_class->name eq $self->unit_class->name }
|
| 33 |
@{ SL::DB::Manager::Unit->get_all }
|
|
| 35 |
@{ $all_units }
|
|
| 34 | 36 |
]; |
| 35 | 37 |
} |
| 36 | 38 |
|
Auch abrufbar als: Unified diff
SL::DB::Unit: convertible_units die Einheitenliste übergeben können
…damit nicht jeder Aufruf von convertible_units an die DB geht.