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_usr_SqlAs_id]]') {
3 
    $rettraduction = '[[TB_usr_SqlAs_id_IT]]';
14 pisoni 4 
    $retalign = 'center';
5 
    $retwidth = '20%';
6 
    $retmaxlen = '12';
7 
 
8 
  }
18 gdo 9 
  if($curfield eq '[[TB_usr_SqlAs_name]]') {
10 
    $rettraduction = '[[TB_usr_SqlAs_name_IT]]';
14 pisoni 11 
    $retalign = 'center';
12 
    $retwidth = '20%';
18 gdo 13 
    $retmaxlen = '35';
14 pisoni 14 
 
15 
  }
18 gdo 16 
  if($curfield eq '[[TB_usr_SqlAs_cognome]]') {
17 
    $rettraduction = '[[TB_usr_SqlAs_cognome_IT]]';
14 pisoni 18 
    $retalign = 'center';
19 
    $retwidth = '20%';
18 gdo 20 
    $retmaxlen = '35';
14 pisoni 21 
 
22 
  }
18 gdo 23 
  if($curfield eq '[[TB_usr_SqlAs_tel]]') {
24 
    $rettraduction = '[[TB_usr_SqlAs_tel_IT]]';
14 pisoni 25 
    $retalign = 'center';
26 
    $retwidth = '20%';
18 gdo 27 
    $retmaxlen = '20';
14 pisoni 28 
 
29 
  }
18 gdo 30 
  if($curfield eq '[[TB_usr_SqlAs_tel2]]') {
31 
    $rettraduction = '[[TB_usr_SqlAs_tel2_IT]]';
32 
    $retmaxlen = '20';
14 pisoni 33 
 
34 
  }
18 gdo 35 
  if($curfield eq '[[TB_usr_SqlAs_creation]]') {
36 
    $rettraduction = '[[TB_usr_SqlAs_creation_IT]]';
14 pisoni 37 
    $retalign = 'center';
38 
    $retwidth = '20%';
39 
  }
18 gdo 40 
  if($curfield eq '[[TB_usr_SqlAs_profile]]') {
41 
    $rettraduction = '[[TB_usr_SqlAs_profile_IT]]';
14 pisoni 42 
    $retalign = 'center';
43 
    $retwidth = '20%';
18 gdo 44 
    $retmaxlen = '20';
14 pisoni 45 
 
46 
  }
18 gdo 47 
  if($curfield eq '[[TB_usr_SqlAs_password]]') {
48 
    $rettraduction = '[[TB_usr_SqlAs_password_IT]]';
49 
    $retmaxlen = '8';
50 
 }
51 
  if($curfield eq '[[TB_usr_SqlAs_zip]]') {
52 
    $rettraduction = '[[TB_usr_SqlAs_zip_IT]]';
53 
    $retmaxlen = '5';
14 pisoni 54 
  }
18 gdo 55 
  if($curfield eq '[[TB_usr_SqlAs_status]]') {
56 
    $rettraduction = '[[TB_usr_SqlAs_status_IT]]';
57 
    $retmaxlen = '10';
14 pisoni 58 
 
59 
  }
18 gdo 60 
  if($curfield eq '[[TB_usr_SqlAs_street]]') {
61 
    $rettraduction = '[[TB_usr_SqlAs_street_IT]]';
62 
    $retmaxlen = '35';
14 pisoni 63 
 
64 
  }
18 gdo 65 
  if($curfield eq '[[TB_usr_SqlAs_streetnumber]]') {
66 
    $rettraduction = '[[TB_usr_SqlAs_streetnumber_IT]]';
67 
    $retmaxlen = '15';
14 pisoni 68 
  }
18 gdo 69 
  if($curfield eq '[[TB_usr_SqlAs_locality]]') {
70 
    $rettraduction = '[[TB_usr_SqlAs_locality_IT]]';
71 
    $retmaxlen = '15';
14 pisoni 72 
  }
18 gdo 73 
  if($curfield eq '[[TB_usr_SqlAs_province]]') {
74 
    $rettraduction = '[[TB_usr_SqlAs_province_IT]]';
75 
    $retmaxlen = '15';
14 pisoni 76 
  }
18 gdo 77 
  if($curfield eq '[[TB_usr_SqlAs_obs]]') {
78 
    $rettraduction = '[[TB_usr_SqlAs_obs_IT]]';
79 
    $retmaxlen = '50';
14 pisoni 80 
  }
18 gdo 81 
  if($curfield eq '[[FM_student_USRCLASS]]') {
82 
    $rettraduction = '[[FM_student_USRCLASS_IT]]';
14 pisoni 83 
  }
18 gdo 84 
  if($curfield eq '[[FM_student_TEACHERCLASS]]') {
85 
    $rettraduction = '[[FM_student_TEACHERCLASS_IT]]';
14 pisoni 86 
  }
87 
  if($curfield eq '[[TB_usr_SqlAs_permision]]') {
88 
    $rettraduction = '[[TB_usr_SqlAs_permision_IT]]';
89 
    $retmaxlen = '10';
90 
  }
91 
  if($curfield eq '[[BT_ok]]') {
92 
    $rettraduction = '[[BT_ok_IT]]';
93 
  }
94 
  if($curfield eq '[[BT_cancel]]') {
95 
    $rettraduction = '[[BT_cancel_IT]]';
96 
  }
97 
  if($curfield eq '[[BT_delete_usr]]') {
98 
    $rettraduction = '[[BT_delete_usr_IT]]';
99 
  }
100 
  if($curfield eq '[[usr_profile_gestion]]') {
101 
    $rettraduction = '[[usr_profile_gestion_IT]]';
102 
  }
103 
  if($curfield eq '[[usr_profile_teacher]]') {
104 
    $rettraduction = '[[usr_profile_teacher_IT]]';
105 
  }
106 
  if($curfield eq '[[usr_profile_admin]]') {
107 
    $rettraduction = '[[usr_profile_admin_IT]]';
108 
  }
109 
  if($curfield eq '[[usr_profile_student]]') {
110 
    $rettraduction = '[[usr_profile_student_IT]]';
111 
  }
18 gdo 112 
  if($curfield eq '[[FM_student_TIT2_info]]') {
113 
    $rettraduction = '[[FM_student_TIT2_info_IT]]';
14 pisoni 114 
  }
18 gdo 115 
  if($curfield eq '[[FM_student_TIT2_address]]') {
116 
    $rettraduction = '[[FM_student_TIT2_address_IT]]';
14 pisoni 117 
  }
118 
  if($cursetting eq 'traduction') {
119 
    return($rettraduction);
120 
  }
121 
  if($cursetting eq 'align') {
122 
    return($retalign);
123 
  }
124 
  if($cursetting eq 'width') {
125 
    return($retwidth);
126 
  }
127 
  if($cursetting eq 'maxlength') {
128 
    return($retmaxlen);
129 
  }
130 
</%perl>
131 
<%args>
132 
$curfield
133 
$cursetting
134 
</%args>
135 
<%init>
136 
my $rettraduction = "Undef Language for:$curfield";
137 
my $retalign = 'center';
138 
my $retwidth = '20%';
139 
my $retmaxlen = '';
140 
</%init>