package SL::Presenter::CustomVariableConfig;

use strict;

use SL::Presenter::EscapedText qw(escape is_escaped);
use SL::Locale::String qw(t8);

use Exporter qw(import);
our @EXPORT_OK = qw(cvar_config_description_with_module);

our %t8 = (
  CT                => t8('Customers and vendors'),
  Contacts          => t8('Contact persons'),
  IC                => t8('Parts, services and assemblies'),
  Projects          => t8('Projects'),
  RequirementSpecs  => t8('Requirement Specs'),
  ShipTo            => t8('Shipping Address'),
);


sub cvar_config_description_with_module {
  my ($cvar_config) = @_;

  my $module = $t8{$cvar_config->module};
  my $description = $cvar_config->description;

  escape("($module) $description");
}

sub description_with_module {
  goto &cvar_config_description_with_module;
}


1;