Revision ba6a1366
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1631 | 1631 |
my $dbh = $self->get_standard_dbh($myconfig); |
| 1632 | 1632 |
my @currencies =(); |
| 1633 | 1633 |
|
| 1634 |
my $query = qq|SELECT name AS curr FROM currencies|; |
|
| 1635 |
|
|
| 1636 |
my $sth = prepare_execute_query($self, $dbh, $query); |
|
| 1637 |
|
|
| 1638 |
while (my $ref = $sth->fetchrow_hashref()) {
|
|
| 1639 |
push(@currencies, $ref->{curr});
|
|
| 1640 |
} |
|
| 1641 |
$sth->finish; |
|
| 1634 |
my $query = qq|SELECT name FROM currencies|; |
|
| 1635 |
my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);
|
|
| 1642 | 1636 |
|
| 1643 | 1637 |
$main::lxdebug->leave_sub(); |
| 1644 | 1638 |
|
Auch abrufbar als: Unified diff
Verbesserung Lesbarkeit von Code
Dieser Commit verbessert noch an Stellen, die Währungen betreffen,
die Lesbarkeit des Codes.