Subversion Repositories wimsdev

Rev

Rev 8903 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2329 guerimand 1
!!!### language independant
2
!!
2349 guerimand 3
 
23 reyssat 4
sh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
5
!for i=1 to $sh
15494 bpr 6
  l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
7
  l=!word 1 of $l
8
  !if $l>0
9
    asheets=!append item $i to $asheets
10
  !endif
23 reyssat 11
!next i
12
 
8903 czzmrn 13
ex=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
14
!for i=1 to $ex
15494 bpr 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
19
  !endif
8903 czzmrn 20
!next i