SL/DB/Helper/Mappings.pm

   1 package SL::DB::Helper::Mappings;
   2
   3 use utf8;
   4 use strict;
   5
   6 use SL::Util qw(camelify);
   7
   8 require Exporter;
   9 our @ISA       = qw(Exporter);
  10 our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
  11
  12 # these will not be managed as Rose::DB models, because they are not normalized,
  13 # significant changes are needed to get them done, or they were done by CRM.
  14 my @kivitendo_blacklist_permanent = qw(
  15   leads
  16 );
  17
  18 # these are not managed _yet_, but will hopefully at some point.
  19 # if you are confident that one of these works, remove it here.
  20 my @kivitendo_blacklist_temp = qw(
  21 );
  22
  23 # tables created by crm module
  24 my @crm_blacklist = qw(
  25   blz_data
  26   bundesland
  27   contmasch
  28   contract
  29   crm
  30   crmdefaults
  31   crmemployee
  32   custmsg
  33   docfelder
  34   documents
  35   documenttotc
  36   docvorlage
  37   extra_felder
  38   geodb_changelog
  39   geodb_coordinates
  40   geodb_floatdata
  41   geodb_hierarchies
  42   geodb_intdata
  43   geodb_locations
  44   geodb_textdata
  45   geodb_type_names
  46   grpusr
  47   gruppenname
  48   history
  49   labels
  50   labeltxt
  51   mailvorlage
  52   maschine
  53   maschmat
  54   opport_status
  55   opportunity
  56   postit
  57   repauftrag
  58   telcall
  59   telcallhistory
  60   telnr
  61   tempcsvdata
  62   termdate
  63   termincat
  64   termine
  65   terminmember
  66   timetrack
  67   tt_event
  68   tt_parts
  69   wiedervorlage
  70   wissencategorie
  71   wissencontent
  72 );
  73
  74 # tables created by cash register
  75 my @cash_register_blacklist = qw(
  76 ekartikel ekbon ekkunde ektext erptasten
  77 );
  78
  79 my @kivitendo_blacklist = (@kivitendo_blacklist_permanent, @kivitendo_blacklist_temp, @crm_blacklist, @cash_register_blacklist);
  80
  81 # map table names to their models.
  82 # unlike rails we have no singular<->plural magic.
  83 # remeber: tables should be named as the plural of the model name.
  84 my %kivitendo_package_names = (
  85   # TABLE                           # MODEL (given in C style)
  86   acc_trans                      => 'acc_transaction',
  87   'auth.clients'                 => 'auth_client',
  88   'auth.clients_users'           => 'auth_client_user',
  89   'auth.clients_groups'          => 'auth_client_group',
  90   'auth.group'                   => 'auth_group',
  91   'auth.group_rights'            => 'auth_group_right',
  92   'auth.master_rights'           => 'auth_master_right',
  93   'auth.schema_info'             => 'auth_schema_info',
  94   'auth.session'                 => 'auth_session',
  95   'auth.session_content'         => 'auth_session_content',
  96   'auth.user'                    => 'auth_user',
  97   'auth.user_config'             => 'auth_user_config',
  98   'auth.user_group'              => 'auth_user_group',
  99   ar                             => 'invoice',
 100   ap                             => 'purchase_invoice',
 101   assembly                       => 'assembly',
 102   background_jobs                => 'background_job',
 103   background_job_histories       => 'background_job_history',
 104   ap                             => 'purchase_invoice',
 105   bank_accounts                  => 'bank_account',
 106   bank_transactions              => 'bank_transaction',
 107   buchungsgruppen                => 'buchungsgruppe',
 108   bin                            => 'bin',
 109   business                       => 'business',
 110   chart                          => 'chart',
 111   contacts                       => 'contact',
 112   customer                       => 'customer',
 113   csv_import_profiles            => 'csv_import_profile',
 114   csv_import_profile_settings    => 'csv_import_profile_setting',
 115   csv_import_reports             => 'csv_import_report',
 116   csv_import_report_rows         => 'csv_import_report_row',
 117   csv_import_report_status       => 'csv_import_report_status',
 118   currencies                     => 'currency',
 119   custom_variable_config_partsgroups => 'custom_variable_config_partsgroup',
 120   custom_variable_configs        => 'custom_variable_config',
 121   custom_variables               => 'custom_variable',
 122   custom_variables_validity      => 'custom_variable_validity',
 123   datev                          => 'datev',
 124   defaults                       => 'default',
 125   delivery_orders                => 'delivery_order',
 126   delivery_order_items           => 'delivery_order_item',
 127   delivery_order_items_stock     => 'delivery_order_items_stock',
 128   delivery_terms                 => 'delivery_term',
 129   department                     => 'department',
 130   drafts                         => 'draft',
 131   dunning                        => 'dunning',
 132   dunning_config                 => 'dunning_config',
 133   email_journal                  => 'EmailJournal',
 134   email_journal_attachments      => 'EmailJournalAttachment',
 135   employee                       => 'employee',
 136   exchangerate                   => 'exchangerate',
 137   finanzamt                      => 'finanzamt',
 138   follow_up_access               => 'follow_up_access',
 139   follow_up_links                => 'follow_up_link',
 140   follow_ups                     => 'follow_up',
 141   generic_translations           => 'generic_translation',
 142   gl                             => 'GLTransaction',
 143   history_erp                    => 'history',
 144   inventory                      => 'inventory',
 145   invoice                        => 'invoice_item',
 146   language                       => 'language',
 147   letter                         => 'letter',
 148   letter_draft                   => 'letter_draft',
 149   makemodel                      => 'make_model',
 150   notes                          => 'note',
 151   orderitems                     => 'order_item',
 152   oe                             => 'order',
 153   parts                          => 'part',
 154   partsgroup                     => 'parts_group',
 155   parts_price_history            => 'PartsPriceHistory',
 156   payment_terms                  => 'payment_term',
 157   periodic_invoices              => 'periodic_invoice',
 158   periodic_invoices_configs      => 'periodic_invoices_config',
 159   prices                         => 'price',
 160   price_factors                  => 'price_factor',
 161   price_rules                    => 'price_rule',
 162   price_rule_items               => 'price_rule_item',
 163   pricegroup                     => 'pricegroup',
 164   printers                       => 'printer',
 165   project                        => 'project',
 166   project_participants           => 'project_participant',
 167   project_phase_participants     => 'project_phase_participant',
 168   project_phases                 => 'project_phase',
 169   project_roles                  => 'project_role',
 170   project_statuses               => 'project_status',
 171   project_types                  => 'project_type',
 172   record_links                   => 'record_link',
 173   reconciliation_links           => 'reconciliation_link',
 174   requirement_spec_acceptance_statuses => 'RequirementSpecAcceptanceStatus',
 175   requirement_spec_complexities        => 'RequirementSpecComplexity',
 176   requirement_spec_item_dependencies   => 'RequirementSpecDependency',
 177   requirement_spec_items               => 'RequirementSpecItem',
 178   requirement_spec_orders              => 'RequirementSpecOrder',
 179   requirement_spec_parts               => 'RequirementSpecPart',
 180   requirement_spec_pictures            => 'RequirementSpecPicture',
 181   requirement_spec_predefined_texts    => 'RequirementSpecPredefinedText',
 182   requirement_spec_risks               => 'RequirementSpecRisk',
 183   requirement_spec_statuses            => 'RequirementSpecStatus',
 184   requirement_spec_text_blocks         => 'RequirementSpecTextBlock',
 185   requirement_spec_types               => 'RequirementSpecType',
 186   requirement_spec_versions            => 'RequirementSpecVersion',
 187   requirement_specs                    => 'RequirementSpec',
 188   sepa_export                    => 'sepa_export',
 189   sepa_export_items              => 'sepa_export_item',
 190   sepa_export_message_ids        => 'SepaExportMessageId',
 191   schema_info                    => 'schema_info',
 192   shipto                         => 'shipto',
 193   status                         => 'status',
 194   tax                            => 'tax',
 195   taxkeys                        => 'tax_key',
 196   tax_zones                      => 'tax_zone',
 197   taxzone_charts                 => 'taxzone_chart',
 198   todo_user_config               => 'todo_user_config',
 199   transfer_type                  => 'transfer_type',
 200   translation                    => 'translation',
 201   trigger_information            => 'trigger_information',
 202   units                          => 'unit',
 203   units_language                 => 'units_language',
 204   user_preferences               => 'user_preference',
 205   vendor                         => 'vendor',
 206   warehouse                      => 'warehouse',
 207 );
 208
 209 my (%kivitendo_tables_to_packages, %kivitendo_tables_to_manager_packages, %kivitendo_packages_to_tables);
 210
 211 sub get_blacklist {
 212   return KIVITENDO => \@kivitendo_blacklist;
 213 }
 214
 215 sub get_package_names {
 216   return KIVITENDO => \%kivitendo_package_names;
 217 }
 218
 219 sub get_name_for_table {
 220   return $kivitendo_package_names{ $_[0] };
 221 }
 222
 223 sub get_package_for_table {
 224   %kivitendo_tables_to_packages = map { ($_ => "SL::DB::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
 225     unless %kivitendo_tables_to_packages;
 226
 227   return $kivitendo_tables_to_packages{ $_[0] };
 228 }
 229
 230 sub get_manager_package_for_table {
 231   %kivitendo_tables_to_manager_packages = map { ($_ => "SL::DB::Manager::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
 232     unless %kivitendo_tables_to_manager_packages;
 233
 234   return $kivitendo_tables_to_manager_packages{ $_[0] };
 235 }
 236
 237 sub get_table_for_package {
 238   get_package_for_table('dummy') if !%kivitendo_tables_to_packages;
 239   %kivitendo_packages_to_tables = reverse %kivitendo_tables_to_packages unless %kivitendo_packages_to_tables;
 240
 241   my $package = $_[0] =~ m/^SL::DB::/ ? $_[0] : "SL::DB::" . $_[0];
 242   return $kivitendo_packages_to_tables{ $package };
 243 }
 244
 245 sub db {
 246   my $string = $_[0];
 247   my $lookup = $kivitendo_package_names{$_[0]} ||
 248       plurify($kivitendo_package_names{singlify($_[0])});
 249
 250   for my $thing ($string, $lookup) {
 251
 252     # best guess? its already the name. like part. camelize it first
 253     my $class = "SL::DB::" . camelify($thing);
 254     return $class if defined *{ $class. '::' };
 255
 256     # next, someone wants a manager and pluralized.
 257     my $manager = "SL::DB::Manager::" . singlify(camelify($thing));
 258     return $manager if defined *{ $manager . '::' };
 259   }
 260
 261   die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
 262 }
 263
 264 sub plurify {
 265   my ($str) = @_;
 266   $str . 's';
 267 }
 268
 269 sub singlify {
 270   my ($str) = @_;
 271   local $/ = 's';
 272   chomp $str;
 273   $str;
 274 }
 275
 276 1;
 277
 278 __END__
 279
 280 =encoding utf8
 281
 282 =head1 NAME
 283
 284 SL::DB::Helper::Mappings - Rose Table <-> Model mapping information
 285
 286 =head1 SYNOPSIS
 287
 288   use SL::DB::Helper::Mappings qw(@blacklist %table2model);
 289
 290 =head1 DESCRIPTION
 291
 292 This modul stores table <-> model mappings used by the
 293 L<scripts/rose_auto_create_model.pl> script.  If you add a new table that has
 294 custom mappings, add it here.
 295
 296 =head1 FUNCTIONS
 297
 298 =over 4
 299
 300 =item C<db $name>
 301
 302 A special function provided here is C<db>. Without it you'd have to write:
 303
 304   my $part = SL::DB::Part->new(id => 1234);
 305   my @all_parts = SL::DB::Manager::Part->get_all;
 306
 307 with them it becomes:
 308
 309   my $part = db('part')->new(id => 123);
 310   my @all_parts = db('parts')->get_all;
 311
 312 You don't have to care about add that SL::DB:: incantation anymore. Also, a
 313 simple s at the end will get you the associated Manager class.
 314
 315 db is written to try to make sense of what you give it, but if all fails, it
 316 will die with an error.
 317
 318 =item C<get_package_for_table $table_name>
 319
 320 Returns the package name for a table name:
 321
 322   SL::DB::Helper::Mappings::get_package_for_table('oe')
 323   # SL::DB::Order
 324
 325 =item C<get_manager_package_for_table $table_name>
 326
 327 Returns the manager package name for a table name:
 328
 329   SL::DB::Helper::Mappings::get_manager_package_for_table('oe')
 330   # SL::DB::Manager::Order
 331
 332 =item C<get_table_for_package $package_name>
 333
 334 Returns the table name for a package name:
 335
 336   SL::DB::Helper::Mappings::get_table_for_package('SL::DB::Order')
 337   # oe
 338   SL::DB::Helper::Mappings::get_table_for_package('Order')
 339   # oe
 340
 341 =back
 342
 343 =head1 BUGS
 344
 345 nothing yet
 346
 347 =head1 SEE ALSO
 348
 349 L<scripts/rose_auto_create_model.pl>
 350
 351 =head1 AUTHOR
 352
 353 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>,
 354 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
 355
 356 =cut