Subversion Repositories cms

<%perl>
  if($curfield eq '[[TB_class_SqlAs_id]]') {
    $rettraduction = '[[TB_class_SqlAs_id_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '9';
  }
  if($curfield eq '[[TB_class_SqlAs_descshort]]') {
    $rettraduction = '[[TB_class_SqlAs_descshort_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
    $retmaxlen = '30';
  }
  if($curfield eq '[[TB_class_SqlAs_permision]]') {
    $rettraduction = '[[TB_class_SqlAs_permision_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[TB_class_SqlAs_desclong]]') {
    $rettraduction = '[[TB_class_SqlAs_desclong_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[TB_class_SqlAs_siteok]]') {
    $rettraduction = '[[TB_class_SqlAs_siteok_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[TB_class_SqlAs_sitebad]]') {
    $rettraduction = '[[TB_class_SqlAs_sitebad_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[TB_class_SqlAs_sitefm]]') {
    $rettraduction = '[[TB_class_SqlAs_sitefm_IT]]';
    $retalign = 'center';
    $retwidth = '20%';
  }
  if($curfield eq '[[BT_delete_class]]') {
    $rettraduction = '[[BT_delete_class_IT]]';
  }
  if($curfield eq '[[F2_class_TIT2_teachers]]') {
    $rettraduction = '[[F2_class_TIT2_teachers_IT]]';
  }
  if($curfield eq '[[F2_class_TIT2_students]]') {
    $rettraduction = '[[F2_class_TIT2_students_IT]]';
  }
  if($curfield eq '[[F2_class_TIT2_info]]') {
    $rettraduction = '[[F2_class_TIT2_info_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>