-$self{texts} = {
+$self->{texts} = {
'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',
'Database update error:' => 'Fehler beim Datenbankupgrade:',
'The base unit does not exist.' => 'Die Basiseinheit existiert nicht.',
'The unit has been saved.' => 'Die Einheit wurde gespeichert.',
};
-$self{subs} = {
+$self->{subs} = {
+ 'get_base_unit' => 'get_base_unit',
'mydberror' => 'mydberror',
'myshowerror' => 'myshowerror',
+ 'retrieve_units' => 'retrieve_units',
+ 'unit_select_data' => 'unit_select_data',
'update_units' => 'update_units',
'update_units_add_unit' => 'update_units_add_unit',
'update_units_assign_known' => 'update_units_assign_known',