1 package SL::DB::Helper::Mappings;
7 our @ISA = qw(Exporter);
8 our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
10 # these will not be managed as Rose::DB models, because they are not normalized,
11 # significant changes are needed to get them done, or they were done by CRM.
12 my @lxoffice_blacklist_permanent = qw(
16 # these are not managed _yet_, but will hopefully at some point.
17 # if you are confident that one of these works, remove it here.
18 my @lxoffice_blacklist_temp = qw(
21 # tables created by crm module
22 my @crm_blacklist = qw(
25 # tables created by cash register
26 my @cash_register_blacklist = qw(
27 ekartikel ekbon ekkunde ektext erptasten
30 my @lxoffice_blacklist = (@lxoffice_blacklist_permanent, @lxoffice_blacklist_temp, @crm_blacklist, @cash_register_blacklist);
32 # map table names to their models.
33 # unlike rails we have no singular<->plural magic.
34 # remeber: tables should be named as the plural of the model name.
35 my %lxoffice_package_names = (
36 acc_trans => 'acc_transaction',
37 audittrail => 'audit_trail',
38 auth_group => 'auth_groups',
39 auth_group_right => 'auth_group_rights',
40 auth_user => 'auth_users',
41 auth_user_config => 'auth_user_configs',
42 auth_user_group => 'auth_user_groups',
44 ap => 'purchase_invoice',
45 background_jobs => 'background_job',
46 background_job_histories => 'background_job_history',
47 ap => 'purchase_invoice',
48 bank_accounts => 'bank_account',
49 buchungsgruppen => 'buchungsgruppe',
50 contacts => 'contact',
51 csv_import_profiles => 'csv_import_profile',
52 csv_import_profile_settings => 'csv_import_profile_setting',
53 custom_variable_configs => 'custom_variable_config',
54 custom_variables => 'custom_variable',
55 custom_variables_validity => 'custom_variable_validity',
56 customertax => 'customer_tax',
58 defaults => 'default',
59 delivery_orders => 'delivery_order',
60 delivery_order_items => 'delivery_order_item',
61 department => 'department',
62 dpt_trans => 'dpt_trans',
65 dunning_config => 'dunning_config',
66 employee => 'employee',
67 exchangerate => 'exchangerate',
68 finanzamt => 'finanzamt',
69 follow_up_access => 'follow_up_access',
70 follow_up_links => 'follow_up_link',
71 follow_ups => 'follow_up',
72 generic_translations => 'generic_translation',
74 gl => 'GLTransaction',
75 history_erp => 'history',
76 inventory => 'inventory',
77 invoice => 'invoice_item',
78 language => 'language',
79 makemodel => 'make_model',
81 orderitems => 'order_item',
84 partsgroup => 'parts_group',
85 partstax => 'parts_tax',
86 payment_terms => 'payment_term',
87 periodic_invoices => 'periodic_invoice',
88 periodic_invoices_configs => 'periodic_invoices_config',
90 price_factors => 'price_factor',
91 pricegroup => 'pricegroup',
92 printers => 'Printer',
93 record_links => 'record_link',
95 rmaitems => 'RMA_item',
96 sepa_export => 'sepa_export',
97 sepa_export_items => 'sepa_export_item',
98 schema_info => 'schema_info',
101 taxkeys => 'tax_key',
102 tax_zones => 'tax_zone',
103 todo_user_config => 'todo_user_config',
104 translation => 'translation',
105 translation_payment_terms => 'translation_payment_term',
107 units_language => 'units_language',
108 vendortax => 'vendor_tax',
111 my (%lxoffice_tables_to_packages, %lxoffice_tables_to_manager_packages, %lxoffice_packages_to_tables);
114 return LXOFFICE => \@lxoffice_blacklist;
117 sub get_package_names {
118 return LXOFFICE => \%lxoffice_package_names;
121 sub get_package_for_table {
122 %lxoffice_tables_to_packages = map { ($_ => "SL::DB::" . camelify($lxoffice_package_names{$_})) } keys %lxoffice_package_names
123 unless %lxoffice_tables_to_packages;
125 return $lxoffice_tables_to_packages{ $_[0] };
128 sub get_manager_package_for_table {
129 %lxoffice_tables_to_manager_packages = map { ($_ => "SL::DB::Manager::" . camelify($lxoffice_package_names{$_})) } keys %lxoffice_package_names
130 unless %lxoffice_tables_to_manager_packages;
132 return $lxoffice_tables_to_manager_packages{ $_[0] };
135 sub get_table_for_package {
136 get_package_for_table('dummy') if !%lxoffice_tables_to_packages;
137 %lxoffice_packages_to_tables = reverse %lxoffice_tables_to_packages unless %lxoffice_packages_to_tables;
139 my $package = $_[0] =~ m/^SL::DB::/ ? $_[0] : "SL::DB::" . $_[0];
140 return $lxoffice_packages_to_tables{ $package };
145 my $lookup = $lxoffice_package_names{$_[0]} ||
146 plurify($lxoffice_package_names{singlify($_[0])});
148 for my $thing ($string, $lookup) {
150 # best guess? its already the name. like part. camelize it first
151 my $class = "SL::DB::" . camelify($thing);
152 return $class if defined *{ $class. '::' };
154 # next, someone wants a manager and pluralized.
155 my $manager = "SL::DB::Manager::" . singlify(camelify($thing));
156 return $manager if defined *{ $manager . '::' };
159 die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
164 $str =~ s/_+(.)/uc($1)/ge;
170 $str =~ s/(?<!^)\u(.)/'_' . lc($1)/ge;
194 SL::DB::Helper::Mappings - Rose Table <-> Model mapping information
198 use SL::DB::Helper::Mappings qw(@blacklist %table2model);
202 This modul stores table <-> model mappings used by the
203 L<scripts/rose_auto_create_model.pl> script. If you add a new table that has
204 custom mappings, add it here.
212 A special function provided here is C<db>. Without it you'd have to write:
214 my $part = SL::DB::Part->new(id => 1234);
215 my @all_parts = SL::DB::Manager::Part->get_all;
217 with them it becomes:
219 my $part = db('part')->new(id => 123);
220 my @all_parts = db('parts')->get_all;
222 You don't have to care about add that SL::DB:: incantation anymore. Also, a
223 simple s at the end will get you the associated Manager class.
225 db is written to try to make sense of what you give it, but if all fails, it
226 will die with an error.
228 =item C<get_package_for_table $table_name>
230 Returns the package name for a table name:
232 SL::DB::Helper::Mappings::get_package_for_table('oe')
235 =item C<get_manager_package_for_table $table_name>
237 Returns the manager package name for a table name:
239 SL::DB::Helper::Mappings::get_manager_package_for_table('oe')
240 # SL::DB::Manager::Order
242 =item C<get_table_for_package $package_name>
244 Returns the table name for a package name:
246 SL::DB::Helper::Mappings::get_table_for_package('SL::DB::Order')
248 SL::DB::Helper::Mappings::get_table_for_package('Order')
259 L<scripts/rose_auto_create_model.pl>
263 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>,
264 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>