Revision ee9fb352
Von Thomas Kasulke vor etwa 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
$key = "all_currencies" unless ($key);
|
||
|
|
||
|
my $query = qq|SELECT curr AS currency FROM defaults|;
|
||
|
|
||
|
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
||
|
|
||
|
$self->{$key} = [split(/\:/ , selectfirst_hashref_query($self, $dbh, $query)->{currency})];
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
sub _get_currencies an currencies angepasst, da diese mit : getrennt in der Tabelle stehen