Subversion Repositories wimsdev

Rev

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

Rev 10702 Rev 10721
Line 12... Line 12...
12 
data=!record 1 of $votedir/$vote.data
 12 
data=!record 1 of $votedir/$vote.data
13 
namevar=!line 1 of $data
 13 
namevar=!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 $namevar in $tv_listname
16 
 
 16 
 
17 
!bound up_namevar within $listlocalname default $namevar
 17 
!bound up_namevar within $tv_listlocalname default $namevar
18 
 
 18 
 
19 
listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip
 19 
listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip
20 
!if $po isitemof $tv_listlocal and $namevar=$up_namevar
 20 
!if $po isitemof $tv_listlocal and $namevar=$up_namevar
21 
 data=!line 3 to -1 of $data
 21 
 data=!line 3 to -1 of $data
22 
 listcle=!column 1 of $data
 22 
 listcle=!column 1 of $data
Line 48... Line 48...
48 
!next var
 48 
!next var
49 
 
 49 
 
50 
!if $gstep=2
 50 
!if $gstep=2
51 
!! need to check carefully namexevar vs. up_namevar (at some step we seem to
 51 
!! 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)
 52 
!! be loosing the correction)(?? should this go outside the if $gstep=2)
53 
 !bound up_namevar within $listlocalname default $namevar
 53 
 !bound up_namevar within $tv_listlocalname default $namevar
54 
 !if $up_namevar=$empty and $namevar=$empty
 54 
 !if $up_namevar=$empty and $namevar=$empty
55 
   error=bad_variable
 55 
   error=bad_variable
56 
   gstep=1
 56 
   gstep=1
57 
   !exit
 57 
   !exit
58 
 !endif
 58 
 !endif