Subversion Repositories wimsdev

today=!char 1 to 8 of $wims_now

thisyear=!char 1 to 4 of $today

!if $class_expiration=$empty

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

!endif

!if $class_expiration=$empty

 error=bad_class

 !exit

!endif

!! ------------------ keep save data

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

codevar=!line 1 of $data

po=!positionof item $codevar in $tv_listcode

namevar=!item $po of $tv_listname

!bound up_codevar within $tv_listlocalcode default $codevar

!if $po isitemof $tv_listlocal and $codevar=$up_codevar

 data=!line 2 to -1 of $data

 listcle=!column 1 of $data

 tmp=!line $po of $tv_listtechvar

 tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar

 listval=!line 2 of $tmp

 numsess=!itemcnt $listval

 !default mod_numsess=$numsess

 !for i=1 to $numsess

   p=!positionof item $(listval[$i]) in $listcle

   !if $p!=$empty

    tdon=!line $p of $data

    !default up_nstud$i=$(tdon[2])

    !default up_testoextra$i=$(tdon[3])

   !endif

   nstud$i=$(up_nstud$i)

   testoextra$i=$(up_testoextra$i)

 !next i

!else

 data=$empty

!endif

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

testointro=$up_testointro

!if $gstep=2

!! 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)

 !if $up_codevar=$empty and $codevar=$empty

   error=bad_variable

   gstep=1

   !exit

 !endif

 !default codevar=$up_codevar

 !if $codevar=$empty

  error=no_variable

  gstep=1

  !exit

 !endif

 !writefile $votedir/$vote.data :$codevar\

$data\

:$testointro

!endif

!if $gstep>=2

!! get list of value for the technical variable :

 numvar=!positionof item $codevar in $tv_listcode

 tmp=!line $numvar of $tv_listtechvar

 tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar

 listval=!line 2 of $tmp

 numsess=!itemcnt $listval

!endif

!if $gstep=3

!!## need to check $testointro contains no vote primitives

 !for i in uservar,menu,list,radio,checkbox,textarea

  !set testointro=!replace internal \$i by INVALID in $testointro

 !next i

 donfile=$codevar

 !for i=1 to $numsess

!!## need to check no "," in testoextra

  testoextra$i=!replace internal , by . in $(testoextra$i)

  nstud$i=$[max(-1,$(nstud$i))]

  !if NaN isin $(nstud$i) or . isin $(nstud$i)

    nstud$i=-1

  !endif

  donfile=!append line $(listval[$i]),$(nstud$i),$(testoextra$i) to $donfile

 !next i

 !writefile $votedir/$vote.data :$donfile\

:$testointro

 reg_src=<div>\

$testointro\

</div>\

\list{

 reg_src1=$reg_src

 reg_src2=\uservar{$namevar,$empty,

 !for i=1 to $numsess

!! writing "0:" gives bad output in the vote page

!if $(nstud$i)=0

  reg_src1=$reg_src1\

$(testoextra$i),

!else

  reg_src1=$reg_src1\

$(nstud$i): $(testoextra$i),

!endif

  reg_src2=$reg_src2\

$(listval[$i]),

 !next i

 reg_src=$reg_src1\

$name_cancellation\

}\

$reg_src2\

$empty\

}

!endif