Subversion Repositories cms

Rev

Rev 15 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14 pisoni 1 
<%perl>
18 gdo 2 
  if($curfield eq '[[TB_class_SqlAs_id]]') {
3 
    $rettraduction = '[[TB_class_SqlAs_id_IT]]';
14 pisoni 4 
    $retalign = 'center';
5 
    $retwidth = '20%';
18 gdo 6 
    $retmaxlen = '9';
14 pisoni 7 
  }
18 gdo 8 
  if($curfield eq '[[TB_class_SqlAs_descshort]]') {
9 
    $rettraduction = '[[TB_class_SqlAs_descshort_IT]]';
14 pisoni 10 
    $retalign = 'center';
11 
    $retwidth = '20%';
18 gdo 12 
    $retmaxlen = '30';
14 pisoni 13 
  }
18 gdo 14 
  if($curfield eq '[[TB_class_SqlAs_permision]]') {
15 
    $rettraduction = '[[TB_class_SqlAs_permision_IT]]';
14 pisoni 16 
    $retalign = 'center';
17 
    $retwidth = '20%';
18 
  }
18 gdo 19 
  if($curfield eq '[[TB_class_SqlAs_desclong]]') {
20 
    $rettraduction = '[[TB_class_SqlAs_desclong_IT]]';
14 pisoni 21 
    $retalign = 'center';
22 
    $retwidth = '20%';
23 
  }
18 gdo 24 
  if($curfield eq '[[TB_class_SqlAs_siteok]]') {
25 
    $rettraduction = '[[TB_class_SqlAs_siteok_IT]]';
26 
    $retalign = 'center';
27 
    $retwidth = '20%';
14 pisoni 28 
  }
18 gdo 29 
  if($curfield eq '[[TB_class_SqlAs_sitebad]]') {
30 
    $rettraduction = '[[TB_class_SqlAs_sitebad_IT]]';
31 
    $retalign = 'center';
32 
    $retwidth = '20%';
14 pisoni 33 
  }
18 gdo 34 
  if($curfield eq '[[TB_class_SqlAs_sitefm]]') {
35 
    $rettraduction = '[[TB_class_SqlAs_sitefm_IT]]';
36 
    $retalign = 'center';
37 
    $retwidth = '20%';
14 pisoni 38 
  }
18 gdo 39 
  if($curfield eq '[[BT_delete_class]]') {
40 
    $rettraduction = '[[BT_delete_class_IT]]';
14 pisoni 41 
  }
18 gdo 42 
  if($curfield eq '[[F2_class_TIT2_teachers]]') {
43 
    $rettraduction = '[[F2_class_TIT2_teachers_IT]]';
14 pisoni 44 
  }
18 gdo 45 
  if($curfield eq '[[F2_class_TIT2_students]]') {
46 
    $rettraduction = '[[F2_class_TIT2_students_IT]]';
14 pisoni 47 
  }
18 gdo 48 
  if($curfield eq '[[F2_class_TIT2_info]]') {
49 
    $rettraduction = '[[F2_class_TIT2_info_IT]]';
14 pisoni 50 
  }
51 
  if($cursetting eq 'traduction') {
52 
    return($rettraduction);
53 
  }
54 
  if($cursetting eq 'align') {
55 
    return($retalign);
56 
  }
57 
  if($cursetting eq 'width') {
58 
    return($retwidth);
59 
  }
60 
  if($cursetting eq 'maxlength') {
61 
    return($retmaxlen);
62 
  }
63 
</%perl>
64 
<%args>
65 
$curfield
66 
$cursetting
67 
</%args>
68 
<%init>
69 
my $rettraduction = "Undef Language for:$curfield";
70 
my $retalign = 'center';
71 
my $retwidth = '20%';
72 
my $retmaxlen = '';
73 
</%init>