Subversion Repositories wimsdev

today=!char 1 to 8 of $wims_now

today=!char 1 to 8 of $wims_now

thisyear=!char 1 to 4 of $today

thisyear=!char 1 to 4 of $today

 !defread wimshome/log/classes/$wims_class/.def

 !defread wimshome/log/classes/$wims_class/.def

!if $class_expiration=$empty

!if $class_expiration=$empty

 error=bad_class

 error=bad_class

 !exit

 !exit

!endif

!endif

data=!record 1 of $votedir/$vote.data

data=!record 1 of $votedir/$vote.data

namevar=!line 1 of $data

namevar=!line 1 of $data

!default up_defconnip=!line 2 of $data

!default up_defconnip=!line 2 of $data

po=!positionof item $namevar in $tv_listname

po=!positionof item $namevar in $tv_listname

!bound up_namevar within $listlocalname default $namevar

!bound up_namevar within $listlocalname default $namevar

listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip

listvar=bday,bmonth,byear,bhour,bmin,ehour,emin,nstud,testoextra,exconnip

!if $po isitemof $tv_listlocal and $namevar=$up_namevar

!if $po isitemof $tv_listlocal and $namevar=$up_namevar

 data=!line 3 to -1 of $data

 data=!line 3 to -1 of $data

!else

!else

 data=$empty

 data=$empty

!endif

!endif

!default up_testointro=!record 2 of $votedir/$vote.data

!default up_testointro=!record 2 of $votedir/$vote.data

testointro=$up_testointro

testointro=$up_testointro

    !default up_$var=$($var)

    !default up_$var=$($var)

    !set $var=$(up_$var)

    !set $var=$(up_$var)

!next var

!next var

!if $gstep=2

!if $gstep=2

!! need to check carefully namexevar vs. up_namevar (at some step we seem to

!! need to check carefully namexevar vs. up_namevar (at some step we seem to

!! be loosing the correction)(?? should this go outside the if $gstep=2)

!! be loosing the correction)(?? should this go outside the if $gstep=2)

 !if $up_namevar=$empty and $namevar=$empty

 !if $up_namevar=$empty and $namevar=$empty

   error=bad_variable

   error=bad_variable

   gstep=1

   gstep=1

   !exit

   !exit

 !endif

 !endif