|
#!/usr/bin/perl
|
|
|
|
$self->{texts} = {
|
|
'A unit with this name does already exist.' => 'A unit with this name does already exist.',
|
|
'Database update error:' => 'Database update error:',
|
|
'The base unit does not exist.' => 'The base unit does not exist.',
|
|
'The factor is missing.' => 'The factor is missing.',
|
|
'The name is missing.' => 'The name is missing.',
|
|
'The unit has been saved.' => 'The unit has been saved.',
|
|
};
|
|
|
|
$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',
|
|
'update_units_assign_units' => 'update_units_assign_units',
|
|
'update_units_set_default' => 'update_units_set_default',
|
|
'update_units_step_3' => 'update_units_step_3',
|
|
'update_units_steps_1_2' => 'update_units_steps_1_2',
|
|
'add_unit' => 'add_unit',
|
|
'assign_units' => 'assign_units',
|
|
};
|
|
|
|
1;
|