Subversion Repositories wimsdev

Rev

Rev 14820 | Rev 16309 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14537 guerimand 1
!! process control page for view student work and type=3
2
 
3
!if $loadwork!=1 or $userv notitemof $ulist
4
  error=badallows
5
  emptypage=yes
6
  !exit
7
!endif
8
 
9
!! ---- read structure of the freework
14820 guerimand 10
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
14537 guerimand 11
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
12
!for k=1 to $nb
13
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
14
  l=!line 1 of $dt
15
  !distribute word $l into t,u
16
  !bound u within teacher,student default teacher
14788 guerimand 17
  !bound t within solution,$listfilename_ztype default $(listfilename_ztype[1])
18
  !if $t!=solution
14537 guerimand 19
    !increase nbrezone$u
20
    ztype$(u)$(nbrezone$u)=$t
21
    script_data=!line 2 to -1 of $dt
22
    !readproc applet/$t pararead $u $(nbrezone$u)
14788 guerimand 23
    !! -- read display parameters for each zone
14796 guerimand 24
!!    !if $u=teacher
25
!!      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
26
!!    !else
14788 guerimand 27
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
14796 guerimand 28
!!    !endif
14537 guerimand 29
  !endif
30
!next k
14867 obado 31
!!if $putiworkco=1
32
!!  iedit_activated=1
33
!!endif
14537 guerimand 34
 
14758 guerimand 35
 
14537 guerimand 36
!set appletnum=0
37
 
38
!! ------- preparing date format
39
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
40
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
41
now=!text select char 0123456789 in $wims_now
42
now=!char 1 to 12 of $now
43
!readproc adm/date.phtml $(deadline)
44
tmp=!replace internal : by H in $timedeadline
45
!let date1=$l_date_out $wims_name_at $tmp
46
!readproc adm/date.phtml $(soldate)
47
tmp=!replace internal : by H in $timesoldate
48
!let date2=$l_date_out $wims_name_at $tmp
49
!readproc adm/class/userdef ,$wims_class,$userv
50
tmp=!defof user_firstname,user_lastname in $userdef
51
!distribute item $tmp into lastname,firstname
52
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
53
remark=!replace internal : by : in $remark
54
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items