$::cgi entfernt.

[kivitendo-erp.git] / bin / mozilla / amcvar.pl

diff --git a/bin/mozilla/amcvar.pl b/bin/mozilla/amcvar.pl
index 6c6865c..c0a0e88 100644 (file)
--- a/bin/mozilla/amcvar.pl
+++ b/bin/mozilla/amcvar.pl
@@ -54,9 +54,10 @@ our %translations = ('text'      => $locale->text('Free-form text'),
                      'timestamp' => $locale->text('Timestamp'),
                      'bool'      => $locale->text('Yes/No (Checkbox)'),
                      'select'    => $locale->text('Selection'),
+                     'customer'  => $locale->text('Customer'),
                      );
 
-our @types = qw(text textfield number date bool select); # timestamp
+our @types = qw(text textfield number date bool select customer); # timestamp
 
 our @modules = ({ module => 'CT',       description => $locale->text('Customers and vendors')          },
                 { module => 'IC',       description => $locale->text('Parts, services and assemblies') },
@@ -90,17 +91,8 @@ sub list_cvar_configs {
 
   my @configs = @{ CVar->get_configs(module => $form->{module}) };
 
-  my $previous_config;
-
   foreach my $config (@configs) {
     $config->{type_tr} = $translations{$config->{type}};
-
-    if ($previous_config) {
-      $previous_config->{next_id} = $config->{id};
-      $config->{previous_id}      = $previous_config->{id};
-    }
-
-    $previous_config = $config;
   }
 
   $form->{title} = $locale->text('List of custom variables');
@@ -108,7 +100,7 @@ sub list_cvar_configs {
   print $form->parse_html_template('amcvar/list_cvar_configs', { CONFIGS => \@configs,
                                                                  MODULES => \@modules });
 
-  $main::lxdebug->dump(0, "modules", \@modules);
+#  $main::lxdebug->dump(0, "modules", \@modules);
 
   $main::lxdebug->leave_sub();
 }
@@ -219,19 +211,6 @@ sub display_cvar_config_form {
   $main::lxdebug->leave_sub();
 }
 
-sub swap_cvar_configs {
-  $main::lxdebug->enter_sub();
-
-  my $form     = $main::form;
-  my %myconfig = %main::myconfig;
-
-  AM->swap_sortkeys(\%myconfig, $form, 'custom_variable_configs');
-
-  list_cvar_configs();
-
-  $main::lxdebug->leave_sub();
-}
-
 sub dispatcher {
   my $form     = $main::form;
   my $locale   = $main::locale;