Kleinere DB-Details (Fremdschlüssel und verwaiste Tabelle)

[mfinanz.git] / SL / DB / Helper / Mappings.pm

diff --git a/SL/DB/Helper/Mappings.pm b/SL/DB/Helper/Mappings.pm
index 4fe4ac94f35b2522b23d2ac7e1b58f0d4a5bcfb5..022894c16706c765f0d7ebe33238eb98833142b7 100644 (file)
--- a/SL/DB/Helper/Mappings.pm
+++ b/SL/DB/Helper/Mappings.pm
@@ -3,52 +3,124 @@ package SL::DB::Helper::Mappings;
 use utf8;
 use strict;
 
 use utf8;
 use strict;
 

+use SL::Util qw(camelify);
+

 require Exporter;
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
 
 # these will not be managed as Rose::DB models, because they are not normalized,
 # significant changes are needed to get them done, or they were done by CRM.
 require Exporter;
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
 
 # these will not be managed as Rose::DB models, because they are not normalized,
 # significant changes are needed to get them done, or they were done by CRM.

-my @lxoffice_blacklist_permanent = qw(
+my @kivitendo_blacklist_permanent = qw(

   leads
 );
 
 # these are not managed _yet_, but will hopefully at some point.
 # if you are confident that one of these works, remove it here.
   leads
 );
 
 # these are not managed _yet_, but will hopefully at some point.
 # if you are confident that one of these works, remove it here.

-my @lxoffice_blacklist_temp = qw(
+my @kivitendo_blacklist_temp = qw(
+);
+
+# tables created by crm module
+my @crm_blacklist = qw(
+  blz_data
+  bundesland
+  contmasch
+  contract
+  crm
+  crmdefaults
+  crmemployee
+  custmsg
+  docfelder
+  documents
+  documenttotc
+  docvorlage
+  extra_felder
+  geodb_changelog
+  geodb_coordinates
+  geodb_floatdata
+  geodb_hierarchies
+  geodb_intdata
+  geodb_locations
+  geodb_textdata
+  geodb_type_names
+  grpusr
+  gruppenname
+  history
+  labels
+  labeltxt
+  mailvorlage
+  maschine
+  maschmat
+  opport_status
+  opportunity
+  postit
+  repauftrag
+  telcall
+  telcallhistory
+  telnr
+  tempcsvdata
+  termdate
+  termincat
+  termine
+  terminmember
+  timetrack
+  tt_event
+  tt_parts
+  wiedervorlage
+  wissencategorie
+  wissencontent

 );
 
 );
 

-my @lxoffice_blacklist = (@lxoffice_blacklist_permanent, @lxoffice_blacklist_temp);
+# tables created by cash register
+my @cash_register_blacklist = qw(
+ekartikel ekbon ekkunde ektext erptasten
+);
+
+my @kivitendo_blacklist = (@kivitendo_blacklist_permanent, @kivitendo_blacklist_temp, @crm_blacklist, @cash_register_blacklist);

 
 # map table names to their models.
 # unlike rails we have no singular<->plural magic.
 # remeber: tables should be named as the plural of the model name.
 
 # map table names to their models.
 # unlike rails we have no singular<->plural magic.
 # remeber: tables should be named as the plural of the model name.

-my %lxoffice_package_names = (
+my %kivitendo_package_names = (
+  # TABLE                           # MODEL (given in C style)

   acc_trans                      => 'acc_transaction',
   acc_trans                      => 'acc_transaction',

-  audittrail                     => 'audit_trail',
-  auth_group                     => 'auth_groups',
-  auth_group_right               => 'auth_group_rights',
-  auth_user                      => 'auth_users',
-  auth_user_config               => 'auth_user_configs',
-  auth_user_group                => 'auth_user_groups',
+  'auth.clients'                 => 'auth_client',
+  'auth.clients_users'           => 'auth_client_user',
+  'auth.clients_groups'          => 'auth_client_group',
+  'auth.group'                   => 'auth_group',
+  'auth.group_rights'            => 'auth_group_right',
+  'auth.user'                    => 'auth_user',
+  'auth.user_config'             => 'auth_user_config',
+  'auth.user_group'              => 'auth_user_group',

   ar                             => 'invoice',
   ap                             => 'purchase_invoice',
   ar                             => 'invoice',
   ap                             => 'purchase_invoice',

+  assembly                       => 'assembly',

   background_jobs                => 'background_job',
   background_job_histories       => 'background_job_history',
   ap                             => 'purchase_invoice',
   bank_accounts                  => 'bank_account',
   buchungsgruppen                => 'buchungsgruppe',
   background_jobs                => 'background_job',
   background_job_histories       => 'background_job_history',
   ap                             => 'purchase_invoice',
   bank_accounts                  => 'bank_account',
   buchungsgruppen                => 'buchungsgruppe',

+  bin                            => 'bin',
+  business                       => 'business',
+  chart                          => 'chart',

   contacts                       => 'contact',
   contacts                       => 'contact',

+  customer                       => 'customer',
+  csv_import_profiles            => 'csv_import_profile',
+  csv_import_profile_settings    => 'csv_import_profile_setting',
+  csv_import_reports             => 'csv_import_report',
+  csv_import_report_rows         => 'csv_import_report_row',
+  csv_import_report_status       => 'csv_import_report_status',
+  currencies                     => 'currency',

   custom_variable_configs        => 'custom_variable_config',
   custom_variables               => 'custom_variable',
   custom_variables_validity      => 'custom_variable_validity',
   custom_variable_configs        => 'custom_variable_config',
   custom_variables               => 'custom_variable',
   custom_variables_validity      => 'custom_variable_validity',

-  customertax                    => 'customer_tax',

   datev                          => 'datev',
   defaults                       => 'default',
   delivery_orders                => 'delivery_order',
   delivery_order_items           => 'delivery_order_item',
   datev                          => 'datev',
   defaults                       => 'default',
   delivery_orders                => 'delivery_order',
   delivery_order_items           => 'delivery_order_item',

+  delivery_order_items_stock     => 'delivery_order_items_stock',
+  delivery_terms                 => 'delivery_term',

   department                     => 'department',
   department                     => 'department',

-  dpt_trans                      => 'dpt_trans',

   drafts                         => 'draft',
   dunning                        => 'dunning',
   dunning_config                 => 'dunning_config',
   drafts                         => 'draft',
   dunning                        => 'dunning',
   dunning_config                 => 'dunning_config',


@@ -59,82 +131,80 @@ my %lxoffice_package_names = (
   follow_up_links                => 'follow_up_link',
   follow_ups                     => 'follow_up',
   generic_translations           => 'generic_translation',
   follow_up_links                => 'follow_up_link',
   follow_ups                     => 'follow_up',
   generic_translations           => 'generic_translation',

-  gifi                           => 'gifi',

   gl                             => 'GLTransaction',
   history_erp                    => 'history',
   inventory                      => 'inventory',
   invoice                        => 'invoice_item',
   language                       => 'language',
   gl                             => 'GLTransaction',
   history_erp                    => 'history',
   inventory                      => 'inventory',
   invoice                        => 'invoice_item',
   language                       => 'language',

-  license                        => 'license',
-  licenseinvoice                 => 'license_invoice',

   makemodel                      => 'make_model',
   notes                          => 'note',
   orderitems                     => 'order_item',
   oe                             => 'order',
   parts                          => 'part',
   partsgroup                     => 'parts_group',
   makemodel                      => 'make_model',
   notes                          => 'note',
   orderitems                     => 'order_item',
   oe                             => 'order',
   parts                          => 'part',
   partsgroup                     => 'parts_group',

-  partstax                       => 'parts_tax',

   payment_terms                  => 'payment_term',
   periodic_invoices              => 'periodic_invoice',
   periodic_invoices_configs      => 'periodic_invoices_config',
   prices                         => 'price',
   price_factors                  => 'price_factor',
   pricegroup                     => 'pricegroup',
   payment_terms                  => 'payment_term',
   periodic_invoices              => 'periodic_invoice',
   periodic_invoices_configs      => 'periodic_invoices_config',
   prices                         => 'price',
   price_factors                  => 'price_factor',
   pricegroup                     => 'pricegroup',

-  printers                       => 'Printer',
+  printers                       => 'printer',
+  project                        => 'project',
+  project_types                  => 'ProjectType',

   record_links                   => 'record_link',
   record_links                   => 'record_link',

-  rma                            => 'RMA',
-  rmaitems                       => 'RMA_item',

   sepa_export                    => 'sepa_export',
   sepa_export_items              => 'sepa_export_item',
   schema_info                    => 'schema_info',
   sepa_export                    => 'sepa_export',
   sepa_export_items              => 'sepa_export_item',
   schema_info                    => 'schema_info',

+  shipto                         => 'shipto',

   status                         => 'status',
   tax                            => 'tax',
   taxkeys                        => 'tax_key',
   tax_zones                      => 'tax_zone',
   todo_user_config               => 'todo_user_config',
   status                         => 'status',
   tax                            => 'tax',
   taxkeys                        => 'tax_key',
   tax_zones                      => 'tax_zone',
   todo_user_config               => 'todo_user_config',

+  transfer_type                  => 'transfer_type',

   translation                    => 'translation',
   translation                    => 'translation',

-  translation_payment_terms      => 'translation_payment_term',

   units                          => 'unit',
   units_language                 => 'units_language',
   units                          => 'unit',
   units_language                 => 'units_language',

-  vendortax                      => 'vendor_tax',
+  vendor                         => 'vendor',
+  warehouse                      => 'warehouse',

 );
 
 );
 

-my (%lxoffice_tables_to_packages, %lxoffice_tables_to_manager_packages, %lxoffice_packages_to_tables);
+my (%kivitendo_tables_to_packages, %kivitendo_tables_to_manager_packages, %kivitendo_packages_to_tables);

 
 sub get_blacklist {
 
 sub get_blacklist {

-  return LXOFFICE => \@lxoffice_blacklist;
+  return KIVITENDO => \@kivitendo_blacklist;

 }
 
 sub get_package_names {
 }
 
 sub get_package_names {

-  return LXOFFICE => \%lxoffice_package_names;
+  return KIVITENDO => \%kivitendo_package_names;

 }
 
 sub get_package_for_table {
 }
 
 sub get_package_for_table {

-  %lxoffice_tables_to_packages = map { ($_ => "SL::DB::" . camelify($lxoffice_package_names{$_})) } keys %lxoffice_package_names
-    unless %lxoffice_tables_to_packages;
+  %kivitendo_tables_to_packages = map { ($_ => "SL::DB::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
+    unless %kivitendo_tables_to_packages;

 
 

-  return $lxoffice_tables_to_packages{ $_[0] };
+  return $kivitendo_tables_to_packages{ $_[0] };

 }
 
 sub get_manager_package_for_table {
 }
 
 sub get_manager_package_for_table {

-  %lxoffice_tables_to_manager_packages = map { ($_ => "SL::DB::Manager::" . camelify($lxoffice_package_names{$_})) } keys %lxoffice_package_names
-    unless %lxoffice_tables_to_manager_packages;
+  %kivitendo_tables_to_manager_packages = map { ($_ => "SL::DB::Manager::" . camelify($kivitendo_package_names{$_})) } keys %kivitendo_package_names
+    unless %kivitendo_tables_to_manager_packages;

 
 

-  return $lxoffice_tables_to_manager_packages{ $_[0] };
+  return $kivitendo_tables_to_manager_packages{ $_[0] };

 }
 
 sub get_table_for_package {
 }
 
 sub get_table_for_package {

-  get_package_for_table('dummy') if !%lxoffice_tables_to_packages;
-  %lxoffice_packages_to_tables = reverse %lxoffice_tables_to_packages unless %lxoffice_packages_to_tables;
+  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];
 
   my $package = $_[0] =~ m/^SL::DB::/ ? $_[0] : "SL::DB::" . $_[0];

-  return $lxoffice_packages_to_tables{ $package };
+  return $kivitendo_packages_to_tables{ $package };

 }
 
 sub db {
   my $string = $_[0];
 }
 
 sub db {
   my $string = $_[0];

-  my $lookup = $lxoffice_package_names{$_[0]} ||
-      plurify($lxoffice_package_names{singlify($_[0])});
+  my $lookup = $kivitendo_package_names{$_[0]} ||
+      plurify($kivitendo_package_names{singlify($_[0])});

 
   for my $thing ($string, $lookup) {
 
 
   for my $thing ($string, $lookup) {
 


@@ -150,18 +220,6 @@ sub db {
   die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
 }
 
   die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
 }
 

-sub camelify {
-  my ($str) = @_;
-  $str =~ s/_+(.)/uc($1)/ge;
-  ucfirst $str;
-}
-
-sub snakify {
-  my ($str) = @_;
-  $str =~ s/(?<!^)\u(.)/'_' . lc($1)/ge;
-  lcfirst $str;
-}
-

 sub plurify {
   my ($str) = @_;
   $str . 's';
 sub plurify {
   my ($str) = @_;
   $str . 's';