kivitendo/SL/Presenter/CustomVariableConfig.pm @ 90b47258
| c772f52f | Sven Schöling | 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;
|