Subversion Repositories wimsdev

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

!if $loadwork!=1 or $userv notitemof $ulist

  error=badallows

  emptypage=yes

  !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

!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