SL/Presenter/CustomVariableConfig.pm

   1 package SL::Presenter::CustomVariableConfig;
   2
   3 use strict;
   4
   5 use SL::Presenter::EscapedText qw(escape is_escaped);
   6 use SL::Locale::String qw(t8);
   7
   8 use Exporter qw(import);
   9 our @EXPORT_OK = qw(cvar_config_description_with_module);
  10
  11 our %t8 = (
  12   CT                => t8('Customers and vendors'),
  13   Contacts          => t8('Contact persons'),
  14   IC                => t8('Parts, services and assemblies'),
  15   Projects          => t8('Projects'),
  16   RequirementSpecs  => t8('Requirement Specs'),
  17   ShipTo            => t8('Shipping Address'),
  18 );
  19
  20
  21 sub cvar_config_description_with_module {
  22   my ($cvar_config) = @_;
  23
  24   my $module = $t8{$cvar_config->module};
  25   my $description = $cvar_config->description;
  26
  27   escape("($module) $description");
  28 }
  29
  30 sub description_with_module {
  31   goto &cvar_config_description_with_module;
  32 }
  33
  34
  35 1;