Revision 6aa467fa
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1742 | 1742 |
|
| 1743 | 1743 |
my ($self, $myconfig, $form, $prefix) = @_; |
| 1744 | 1744 |
|
| 1745 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 1745 |
my $dbh = $form->get_standard_dbh;
|
|
| 1746 | 1746 |
|
| 1747 | 1747 |
my $query = "SELECT *, base_unit AS original_base_unit FROM units"; |
| 1748 | 1748 |
|
| ... | ... | |
| 1782 | 1782 |
map({ $unit->{"LANGUAGES"}->{$ref->{"template_code"}}->{$_} = $ref->{$_} } keys(%{$ref}));
|
| 1783 | 1783 |
} |
| 1784 | 1784 |
} |
| 1785 |
$sth->finish(); |
|
| 1786 |
|
|
| 1787 |
$dbh->disconnect(); |
|
| 1785 |
$sth->finish; |
|
| 1788 | 1786 |
|
| 1789 | 1787 |
$main::lxdebug->leave_sub(); |
| 1790 | 1788 |
|
Auch abrufbar als: Unified diff
AM->retrieve_units bruacht keine eigene Datenbankverbindung