Subversion Repositories wimsdev

Rev

Rev 14758 | Rev 14796 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14758 Rev 14788
Line 5... Line 5...
5 
  emptypage=yes
 5 
  emptypage=yes
6 
  !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!! ---- read structure of the freework
 9 
!! ---- read structure of the freework
10 
!distribute item 0,0 into nbrezoneteacher,nbrezonestudent
 10 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,userfilezonelist
11 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 11 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
12 
!for k=1 to $nb
 12 
!for k=1 to $nb
13 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 13 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
14 
  l=!line 1 of $dt
 14 
  l=!line 1 of $dt
15 
  !distribute word $l into t,u
 15 
  !distribute word $l into t,u
16 
  !bound u within teacher,student default teacher
 16 
  !bound u within teacher,student default teacher
17 
  !bound t within correction,$listfilename_ztype default $(listfilename_ztype[1])
 17 
  !bound t within solution,$listfilename_ztype default $(listfilename_ztype[1])
18 
  !if $t!=correction
 18 
  !if $t!=solution
19 
    !increase nbrezone$u
 19 
    !increase nbrezone$u
20 
    ztype$(u)$(nbrezone$u)=$t
 20 
    ztype$(u)$(nbrezone$u)=$t
21 
    script_data=!line 2 to -1 of $dt
 21 
    script_data=!line 2 to -1 of $dt
22 
    !readproc applet/$t pararead $u $(nbrezone$u)
 22 
    !readproc applet/$t pararead $u $(nbrezone$u)
- 
 
 23 
    !! -- read display parameters for each zone
- 
 
 24 
    !if $u=teacher
- 
 
 25 
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
- 
 
 26 
    !else
- 
 
 27 
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
- 
 
 28 
    !endif
23 
  !endif
 29 
  !endif
24 
!next k
 30 
!next k
25 
!if $putiworkco=1
 31 
!if $putiworkco=1
26 
  iedit_activated=1
 32 
  iedit_activated=1
27 
!endif
 33 
!endif