Subversion Repositories wimsdev

Rev

Rev 8903 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8903 Rev 15494
Line 1... Line 1...
1 
!!!### language independant
 1 
!!!### language independant
2 
!!
 2 
!!
3 
 
 3 
 
4 
sh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 4 
sh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
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
 10 
  !endif
11 
!next i
 11 
!next i
12 
 
 12 
 
13 
ex=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
 13 
ex=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
14 
!for i=1 to $ex
 14 
!for i=1 to $ex
15 
 l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
 15 
  l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
16 
 l=!word 1 of $l
 16 
  l=!word 1 of $l
17 
 !if $l>0
 17 
  !if $l>0
18 
  aexams=!append item $i to $aexams
 18 
    aexams=!append item $i to $aexams
19 
 !endif
 19 
  !endif
20 
!next i
 20 
!next i
21 
 
 -