+ return KIVITENDO => \%kivitendo_package_names;
+}
+
+sub get_package_for_table {
+ %kivitendo_tables_to_packages = map { ($_ => "SL::DB::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
+ unless %kivitendo_tables_to_packages;
+
+ return $kivitendo_tables_to_packages{ $_[0] };
+}
+
+sub get_manager_package_for_table {
+ %kivitendo_tables_to_manager_packages = map { ($_ => "SL::DB::Manager::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
+ unless %kivitendo_tables_to_manager_packages;
+
+ return $kivitendo_tables_to_manager_packages{ $_[0] };
+}
+
+sub get_table_for_package {
+ get_package_for_table('dummy') if !%kivitendo_tables_to_packages;
+ %kivitendo_packages_to_tables = reverse %kivitendo_tables_to_packages unless %kivitendo_packages_to_tables;
+
+ my $package = $_[0] =~ m/^SL::DB::/ ? $_[0] : "SL::DB::" . $_[0];
+ return $kivitendo_packages_to_tables{ $package };