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