X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6a12a968761127af91e9da8db7579be2836bcaaa..0d37f1e8:/SL/DB/Helper/Mappings.pm

diff --git a/SL/DB/Helper/Mappings.pm b/SL/DB/Helper/Mappings.pm
index c29cc0a44..aa25bd449 100644
--- a/SL/DB/Helper/Mappings.pm
+++ b/SL/DB/Helper/Mappings.pm
@@ -126,6 +126,8 @@ my %kivitendo_package_names = (
   drafts                         => 'draft',
   dunning                        => 'dunning',
   dunning_config                 => 'dunning_config',
+  email_journal                  => 'EmailJournal',
+  email_journal_attachments      => 'EmailJournalAttachment',
   employee                       => 'employee',
   exchangerate                   => 'exchangerate',
   finanzamt                      => 'finanzamt',
@@ -138,6 +140,8 @@ my %kivitendo_package_names = (
   inventory                      => 'inventory',
   invoice                        => 'invoice_item',
   language                       => 'language',
+  letter                         => 'letter',
+  letter_draft                   => 'letter_draft',
   makemodel                      => 'make_model',
   notes                          => 'note',
   orderitems                     => 'order_item',
@@ -205,6 +209,10 @@ sub get_package_names {
   return KIVITENDO => \%kivitendo_package_names;
 }
 
+sub get_name_for_table {
+  return $kivitendo_package_names{ $_[0] };
+}
+
 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;