Subversion Repositories wimsdev

Rev

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

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