Subversion Repositories wimsdev

!! process control page for student and type=3

!if $activetest!=1 and $activetest!=2

  error=badallows

  emptypage=yes

  !exit

!endif

!! ---- read structure of the freework

!distribute item 0,0 into nbrezoneteacher,nbrezonestudent

nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework

!for k=1 to $nb

  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework

  l=!line 1 of $dt

  !distribute word $l into t,u

  !bound u within teacher,student default teacher

  !bound t within correction,$listfilename_ztype default $(listfilename_ztype[1])

  !if $t=solution

    flistsolution=!line 2 to -1 of $dt

    flistsolution=!nonempty line $flistsolution

    flistsolution=!lines2items $flistsolution

  !else

    !increase nbrezone$u

    ztype$(u)$(nbrezone$u)=$t

    script_data=!line 2 to -1 of $dt

    !readproc applet/$t pararead $u $(nbrezone$u)

  !endif

!next k

!set appletnum=0

!set studentmode=1

!if $activetest=1

  !readproc adm/class/quotafree.proc proc

  !readproc proc/findfile3.proc $freework,$wims_user

  d1=!text select char 0123456789 in $(deadline)$(timedeadline)

  d2=!text select char 0123456789 in $wims_now

  d2=!char 1 to 12 of $d2

  !reset toolate

  !if $d2>$d1

    toolate=yes

    studentmode=0

  !endif

!else

  studentmode=0

!endif

!! read parameter process for each participant zone

!for i=1 to $nbrezonestudent

  !read applet/$(ztypestudent$i) displayread student $i $studentmode $wims_user

!next i

!if $codownload=1 or $activetest>=2

  remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$wims_user

  remark=!replace internal : by : in $remark

!endif

!! ---- save zone content (only student zone)

!if $job2=savezone and $toolate!=yes

  !if $stype isitemof student and $zone>=1 and $zone<=$(nbrezonestudent)

    !! --- only if it is a correct zone ()

    !readproc applet/$(ztype$(stype)$zone) displaysave $stype $zone 1 $wims_user

  !endif

!endif