X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ff159a4d47b9a2d10744dcfc23da2c63605c8a32..eeb5375ee7727c956cc357cc8f90b19d1bfe80b9:/SL/Controller/CustomVariableConfig.pm?ds=sidebyside

diff --git a/SL/Controller/CustomVariableConfig.pm b/SL/Controller/CustomVariableConfig.pm
index 193523a85..fb68c03aa 100644
--- a/SL/Controller/CustomVariableConfig.pm
+++ b/SL/Controller/CustomVariableConfig.pm
@@ -11,6 +11,7 @@ use SL::DB::CustomVariableValidity;
 use SL::DB::PartsGroup;
 use SL::Helper::Flash;
 use SL::Locale::String;
+use SL::Presenter::CustomVariableConfig;
 use Data::Dumper;
 
 use Rose::Object::MakeMethods::Generic (
@@ -38,6 +39,8 @@ our %translations = (
 
 our @types = qw(text textfield htmlfield number date bool select customer vendor part); # timestamp
 
+our @modules = qw(CT Contacts IC Projects RequirementSpecs ShipTo);
+
 #
 # actions
 #
@@ -48,6 +51,7 @@ sub action_list {
   my $configs = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => $self->module ]);
 
   $self->setup_list_action_bar;
+  $::form->{title} = t8('List of custom variables');
   $::form->header;
   $self->render('custom_variable_config/list',
                 title   => t8('List of custom variables'),
@@ -161,13 +165,10 @@ sub init_translated_types {
 sub init_modules {
   my ($self, %params) = @_;
 
-  return [ sort { $a->{description}->translated cmp $b->{description}->translated } (
-    { module => 'CT',               description => t8('Customers and vendors')          },
-    { module => 'Contacts',         description => t8('Contact persons')                },
-    { module => 'IC',               description => t8('Parts, services and assemblies') },
-    { module => 'Projects',         description => t8('Projects')                       },
-    { module => 'RequirementSpecs', description => t8('Requirement Specs')              },
-    { module => 'ShipTo',           description => t8('Shipping Address')               },
+  return [
+    sort { $a->{description}->translated cmp $b->{description}->translated } (
+    map +{ module => $_, description => $SL::Presenter::CustomVariableConfig::t8{$_} },
+    @modules
   )];
 }