Rev 14 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%perl>
if($curfield eq '[[TB_t_strade_SqlAs_id]]') {
$rettraduction = '[[TB_t_strade_SqlAs_id_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
}
if($curfield eq '[[TB_t_strade_SqlAs_id_settore]]') {
$rettraduction = '[[TB_t_strade_SqlAs_id_settore_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
}
if($curfield eq '[[TB_t_strade_SqlAs_km_da]]') {
$rettraduction = '[[TB_t_strade_SqlAs_km_da_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
}
if($curfield eq '[[TB_t_strade_SqlAs_km_a]]') {
$rettraduction = '[[TB_t_strade_SqlAs_km_a_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
}
if($curfield eq '[[TB_usr_SqlAs_permision]]') {
$rettraduction = '[[TB_usr_SqlAs_permision_IT]]';
$retmaxlen = '10';
}
if($curfield eq '[[BT_ok]]') {
$rettraduction = '[[BT_ok_IT]]';
}
if($curfield eq '[[BT_cancel]]') {
$rettraduction = '[[BT_cancel_IT]]';
}
if($curfield eq '[[BT_delete_usr]]') {
$rettraduction = '[[BT_delete_usr_IT]]';
}
if($curfield eq '[[usr_profile_gestion]]') {
$rettraduction = '[[usr_profile_gestion_IT]]';
}
if($curfield eq '[[usr_profile_teacher]]') {
$rettraduction = '[[usr_profile_teacher_IT]]';
}
if($curfield eq '[[usr_profile_admin]]') {
$rettraduction = '[[usr_profile_admin_IT]]';
}
if($curfield eq '[[usr_profile_student]]') {
$rettraduction = '[[usr_profile_student_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_info]]') {
$rettraduction = '[[FM_strada_TIT2_info_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_address]]') {
$rettraduction = '[[FM_strada_TIT2_address_IT]]';
}
if($cursetting eq 'traduction') {
return($rettraduction);
}
if($cursetting eq 'align') {
return($retalign);
}
if($cursetting eq 'width') {
return($retwidth);
}
if($cursetting eq 'maxlength') {
return($retmaxlen);
}
</%perl>
<%args>
$curfield
$cursetting
</%args>
<%init>
my $rettraduction = "Undef Language for:$curfield";
my $retalign = 'center';
my $retwidth = '20%';
my $retmaxlen = '';
</%init>