Subversion Repositories wimsdev

Rev

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

Rev 3245 Rev 8903
Line 5... Line 5...
5 
!for i=1 to $sh
 5 
!for i=1 to $sh
6 
 l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 6 
 l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
7 
 l=!word 1 of $l
 7 
 l=!word 1 of $l
8 
 !if $l>0
 8 
 !if $l>0
9 
  asheets=!append item $i to $asheets
 9 
  asheets=!append item $i to $asheets
- 
 
 10 
 !endif
- 
 
 11 
!next i
- 
 
 12 
 
- 
 
 13 
ex=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
- 
 
 14 
!for i=1 to $ex
- 
 
 15 
 l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
- 
 
 16 
 l=!word 1 of $l
- 
 
 17 
 !if $l>0
- 
 
 18 
  aexams=!append item $i to $aexams
10 
 !endif
 19 
 !endif
11 
!next i
 20 
!next i
12 
 
 21