Subversion Repositories wimsdev

Rev

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

Rev 14820 Rev 16324
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,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
 29 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,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