Subversion Repositories wimsdev

!! process control page for view student work in type=3

!if $loadwork!=1
  error=badallows
  emptypage=yes
  !exit
!endif

!if $userv notitemof $ulist
  error=exolog-nouser
  job=configfw
  !changeto $job.proc
  !exit
!endif
!! ---- read structure of the freework
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
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 solution,$listfilename_ztype default $(listfilename_ztype[1])
  !if $t!=solution
    !increase nbrezone$u
    ztype$(u)$(nbrezone$u)=$t
    script_data=!line 2 to -1 of $dt
    !readproc applet/$t pararead $u $(nbrezone$u)
    !! -- read display parameters for each zone
!!    !if $u=teacher
!!      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
!!    !else
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
!!    !endif
  !endif
!next k
!!if $putiworkco=1
!!  iedit_activated=1
!!endif

!if $nbrezonestudent=0
  error=noinlineanswer
  job=configfw
  !changeto $job.proc
!endif

!set appletnum=0

!! ------- preparing date format
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
now=!text select char 0123456789 in $wims_now
now=!char 1 to 12 of $now
!readproc adm/date.phtml $(deadline)
tmp=!replace internal : by H in $timedeadline
!let date1=$l_date_out $wims_name_at $tmp
!readproc adm/date.phtml $(soldate)
tmp=!replace internal : by H in $timesoldate
!let date2=$l_date_out $wims_name_at $tmp
!readproc adm/class/userdef ,$wims_class,$userv
tmp=!defof user_firstname,user_lastname in $userdef
!distribute item $tmp into lastname,firstname
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
remark=!replace internal : by : in $remark
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items