Subversion Repositories wimsdev

Rev

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

Rev 14788 Rev 14796
Line 24... Line 24...
24 
!else
 24 
!else
25 
  studentmode=0
 25 
  studentmode=0
26 
!endif
 26 
!endif
27 
 
 27 
 
28 
!! ---- read structure of the freework
 28 
!! ---- read structure of the freework
29 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,userfilezonelist
 29 
!distribute item 0,0,$empty,$empty into nbrezoneteacher,nbrezonestudent,userfilezonelist,ltdownloadzone
30 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 30 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
31 
!for k=1 to $nb
 31 
!for k=1 to $nb
32 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 32 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
33 
  l=!line 1 of $dt
 33 
  l=!line 1 of $dt
34 
  !distribute word $l into t,u
 34 
  !distribute word $l into t,u
Line 42... Line 42...
42 
    !increase nbrezone$u
 42 
    !increase nbrezone$u
43 
    ztype$(u)$(nbrezone$u)=$t
 43 
    ztype$(u)$(nbrezone$u)=$t
44 
    script_data=!line 2 to -1 of $dt
 44 
    script_data=!line 2 to -1 of $dt
45 
    !readproc applet/$t pararead $u $(nbrezone$u)
 45 
    !readproc applet/$t pararead $u $(nbrezone$u)
46 
    !! -- read display parameters for each zone
 46 
    !! -- read display parameters for each zone
- 
 
 47 
    !if $u!=student or $job2!=savezone or $t=file
47 
    !read applet/$t displayread $u $(nbrezone$u) $studentmode $wims_user
 48 
      !read applet/$t displayread $u $(nbrezone$u) $studentmode $wims_user
- 
 
 49 
    !endif
48 
  !endif
 50 
  !endif
49 
!next k
 51 
!next k
- 
 
 52 
ltdownloadzone=!listintersection $ltdownloadzone and $zonelistlabelstudent
- 
 
 53 
 
- 
 
 54 
!! ---- save zone content (only student zone)
- 
 
 55 
!if $job2=savezone and $toolate!=yes
- 
 
 56 
  !for zone=1 to $(nbrezonestudent)
- 
 
 57 
    !readproc applet/$(ztypestudent$zone) displaysave student $zone 1 $wims_user
- 
 
 58 
  !next zone
- 
 
 59 
!endif
- 
 
 60 
!readproc proc/studentusedspace.proc
- 
 
 61 
!! ---- save file for zonetype=file
- 
 
 62 
l=!makelist deposit X,erase X for X in $zonelistlabelstudent
- 
 
 63 
l=!nospace $l
- 
 
 64 
!if $job2 isitemof $l and $toolate!=yes
- 
 
 65 
  nb=!char -1 of $job2
- 
 
 66 
  !if $(ztypestudent$nb)=file
- 
 
 67 
    job2=!char 1 to -2 of $job2
- 
 
 68 
    !readproc applet/file displaysave student $nb 1 $wims_user
- 
 
 69 
  !endif
- 
 
 70 
  !reset job2
- 
 
 71 
  !readproc proc/studentusedspace.proc
- 
 
 72 
!endif
50 
 
 73 
 
51 
!if $codownload=1 or $activetest>=2
 74 
!if $codownload=1 or $activetest>=2
52 
  remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$wims_user
 75 
  remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$wims_user
53 
  remark=!replace internal : by : in $remark
 76 
  remark=!replace internal : by : in $remark
54 
!endif
 77 
!endif
55 
 
 78 
 
56 
!! ---- save zone content (only student zone)
 - 
 
57 
!if ($job2=savezone or $job2=erasezone) and $toolate!=yes
 - 
 
58 
  !if $stype isitemof student and $zone>=1 and $zone<=$(nbrezonestudent)
 - 
 
59 
    !! --- only if it is a correct zone ()
 - 
 
60 
    !readproc applet/$(ztype$(stype)$zone) displaysave $stype $zone 1 $wims_user
 - 
 
61 
  !endif
 - 
 
62 
!endif
 79