Subversion Repositories wimsdev

Rev

Rev 10721 | Rev 11849 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10721 Rev 10736
Line 8... Line 8...
8 
 error=bad_class
 8 
 error=bad_class
9 
 !exit
 9 
 !exit
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
data=!record 1 of $votedir/$vote.data
 12 
data=!record 1 of $votedir/$vote.data
13 
namevar=!line 1 of $data
 13 
codevar=!line 1 of $data
14 
!default up_defconnip=!line 2 of $data
 14 
!default up_defconnip=!line 2 of $data
15 
po=!positionof item $namevar in $tv_listname
 15 
po=!positionof item $codevar in $tv_listcode
- 
 
 16 
namevar=!item $po of $tv_listname
16 
 
 17 
 
17 
!bound up_namevar within $tv_listlocalname default $namevar
 18 
!bound up_codevar within $tv_listlocalcode default $codevar
18 
 
 19 
 
19 
listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip
 20 
listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip
20 
!if $po isitemof $tv_listlocal and $namevar=$up_namevar
 21 
!if $po isitemof $tv_listlocal and $codevar=$up_codevar
21 
 data=!line 3 to -1 of $data
 22 
 data=!line 3 to -1 of $data
22 
 listcle=!column 1 of $data
 23 
 listcle=!column 1 of $data
23 
 tmp=!line $po of $tv_listtechvar
 24 
 tmp=!line $po of $tv_listtechvar
24 
 tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar
 25 
 tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar
25 
 listval=!line 2 of $tmp
 26 
 listval=!line 2 of $tmp
Line 48... Line 49...
48 
!next var
 49 
!next var
49 
 
 50 
 
50 
!if $gstep=2
 51 
!if $gstep=2
51 
!! need to check carefully namexevar vs. up_namevar (at some step we seem to
 52 
!! need to check carefully namexevar vs. up_namevar (at some step we seem to
52 
!! be loosing the correction)(?? should this go outside the if $gstep=2)
 53 
!! be loosing the correction)(?? should this go outside the if $gstep=2)
53 
 !bound up_namevar within $tv_listlocalname default $namevar
 54 
 !bound up_codevar within $tv_listlocalcode default $codevar
54 
 !if $up_namevar=$empty and $namevar=$empty
 55 
 !if $up_codevar=$empty and $codevar=$empty
55 
   error=bad_variable
 56 
   error=bad_variable
56 
   gstep=1
 57 
   gstep=1
57 
   !exit
 58 
   !exit
58 
 !endif
 59 
 !endif
59 
 !default namevar=$up_namevar
 60 
 !default codevar=$up_codevar
60 
 !if $namevar=$empty
 61 
 !if $codevar=$empty
61 
  error=no_variable
 62 
  error=no_variable
62 
  gstep=1
 63 
  gstep=1
63 
  !exit
 64 
  !exit
64 
 !endif
 65 
 !endif
65 
 !writefile $votedir/$vote.data :$namevar\
 66 
 !writefile $votedir/$vote.data :$codevar\
66 
$defconnip\
 67 
$defconnip\
67 
$data\
 68 
$data\
68 
:$testointro
 69 
:$testointro
69 
!endif
 70 
!endif
70 
 
 71 
 
71 
!if $gstep>=2
 72 
!if $gstep>=2
72 
!! get list of value for the technical variable :
 73 
!! get list of value for the technical variable :
73 
 numvar=!positionof item $namevar in $tv_listname
 74 
 numvar=!positionof item $codevar in $tv_listcode
74 
 tmp=!line $numvar of $tv_listtechvar
 75 
 tmp=!line $numvar of $tv_listtechvar
75 
 varcode=!item $numvar of $tv_listcode
 76 
 namevar=!item $numvar of $tv_listname
76 
 !distribute item $tmp into bb,classid,num
 77 
 !distribute item $tmp into bb,classid,num
77 
 don=!record $num of wimshome/log/classes/$wims_class/.techvar
 78 
 don=!record $num of wimshome/log/classes/$wims_class/.techvar
78 
 listval=!line 2 of $don
 79 
 listval=!line 2 of $don
79 
 numsess=!itemcnt $listval
 80 
 numsess=!itemcnt $listval
80 
!endif
 81 
!endif
Line 82... Line 83...
82 
!if $gstep=3
 83 
!if $gstep=3
83 
!!## need to check $testointro contains no vote primitives
 84 
!!## need to check $testointro contains no vote primitives
84 
 !for i in uservar,menu,list,radio,checkbox,textarea
 85 
 !for i in uservar,menu,list,radio,checkbox,textarea
85 
   testointro=!replace internal \$i by INVALID in $testointro
 86 
   testointro=!replace internal \$i by INVALID in $testointro
86 
 !next i
 87 
 !next i
87 
 donfile=$namevar\
 88 
 donfile=$codevar\
88 
$defconnip
 89 
$defconnip
89 
 
 90 
 
90 
 techvartable=\$varcode\
 91 
 techvartable=\$codevar\
91 
!set techvar_EMPTY=>$class_expiration
 92 
!set techvar_EMPTY=>$class_expiration
92 
 !for i=1 to $numsess
 93 
 !for i=1 to $numsess
93 
  !!## need to check no "," in exconnip/testoextra and numerical for date variable.
 94 
  !!## need to check no "," in exconnip/testoextra and numerical for date variable.
94 
  exconnip$i=!replace internal , by . in $(exconnip$i)
 95 
  exconnip$i=!replace internal , by . in $(exconnip$i)
95 
  testoextra$i=!replace internal , by . in $(testoextra$i)
 96 
  testoextra$i=!replace internal , by . in $(testoextra$i)
Line 151... Line 152...
151 
$name_cancellation\
 152 
$name_cancellation\
152 
}\
 153 
}\
153 
$reg_src2\
 154 
$reg_src2\
154 
$empty\
 155 
$empty\
155 
}
 156 
}
156 
 !sh mkdir $wims_home/log/classes/$wims_class/techvar
 157 
 !sh mkdir -p $wims_home/log/classes/$wims_class/techvar
157 
 !writefile wimshome/log/classes/$wims_class/techvar/$varcode $techvartable
 158 
 !writefile wimshome/log/classes/$wims_class/techvar/$codevar $techvartable
158 
!endif
 159 
!endif