Revision e770cd18
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
SL/DB/Default.pm | ||
---|---|---|
9 | 9 |
|
10 | 10 |
sub get_default_currency { |
11 | 11 |
my $self = shift->get; |
12 |
my @currencies = grep { $_ } split(/:/, $self->curr || '');
|
|
13 |
return $currencies[0] || '';
|
|
12 |
return $self->currency->name || '' if $self->currency_id;
|
|
13 |
return ''; |
|
14 | 14 |
} |
15 | 15 |
|
16 | 16 |
sub get { |
Auch abrufbar als: Unified diff
Anpassung Rose-Funktionen auf Umstellung currencies