Subversion Repositories cms

<%perl>
  if($curfield eq '[[TB_usr_SqlAs_id]]') {
    $rettraduction = '[[TB_usr_SqlAs_id_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '12';

  }
  if($curfield eq '[[TB_usr_SqlAs_name]]') {
    $rettraduction = '[[TB_usr_SqlAs_name_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '35';

  }
  if($curfield eq '[[TB_usr_SqlAs_cognome]]') {
    $rettraduction = '[[TB_usr_SqlAs_cognome_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '35';

  }
  if($curfield eq '[[TB_usr_SqlAs_tel]]') {
    $rettraduction = '[[TB_usr_SqlAs_tel_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '20';

  }
  if($curfield eq '[[TB_usr_SqlAs_tel2]]') {
    $rettraduction = '[[TB_usr_SqlAs_tel2_IT]]';
    $retmaxlen = '20';

  }
  if($curfield eq '[[TB_usr_SqlAs_creation]]') {
    $rettraduction = '[[TB_usr_SqlAs_creation_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[TB_usr_SqlAs_profile]]') {
    $rettraduction = '[[TB_usr_SqlAs_profile_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '20';

  }
  if($curfield eq '[[TB_usr_SqlAs_password]]') {
    $rettraduction = '[[TB_usr_SqlAs_password_IT]]';
    $retmaxlen = '8';
 }
  if($curfield eq '[[TB_usr_SqlAs_zip]]') {
    $rettraduction = '[[TB_usr_SqlAs_zip_IT]]';
    $retmaxlen = '5';
  }
  if($curfield eq '[[TB_usr_SqlAs_status]]') {
    $rettraduction = '[[TB_usr_SqlAs_status_IT]]';
    $retmaxlen = '10';

  }
  if($curfield eq '[[TB_usr_SqlAs_street]]') {
    $rettraduction = '[[TB_usr_SqlAs_street_IT]]';
    $retmaxlen = '35';

  }
  if($curfield eq '[[TB_usr_SqlAs_streetnumber]]') {
    $rettraduction = '[[TB_usr_SqlAs_streetnumber_IT]]';
    $retmaxlen = '15';
  }
  if($curfield eq '[[TB_usr_SqlAs_locality]]') {
    $rettraduction = '[[TB_usr_SqlAs_locality_IT]]';
    $retmaxlen = '15';
  }
  if($curfield eq '[[TB_usr_SqlAs_province]]') {
    $rettraduction = '[[TB_usr_SqlAs_province_IT]]';
    $retmaxlen = '15';
  }
  if($curfield eq '[[TB_usr_SqlAs_obs]]') {
    $rettraduction = '[[TB_usr_SqlAs_obs_IT]]';
    $retmaxlen = '50';
  }
  if($curfield eq '[[FM_student_USRCLASS]]') {
    $rettraduction = '[[FM_student_USRCLASS_IT]]';
  }
  if($curfield eq '[[FM_student_TEACHERCLASS]]') {
    $rettraduction = '[[FM_student_TEACHERCLASS_IT]]';
  }
  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_student_TIT2_info]]') {
    $rettraduction = '[[FM_student_TIT2_info_IT]]';
  }
  if($curfield eq '[[FM_student_TIT2_address]]') {
    $rettraduction = '[[FM_student_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>