Subversion Repositories wimsdev

Rev

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

Rev 3040 Rev 4344
Line 27... Line 27...
27 
!if class isin $livret_scoreoption
 27 
!if class isin $livret_scoreoption
28 
 wims_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def
 28 
 wims_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def
29 
!endif
 29 
!endif
30 
 
 30 
 
31 
shcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 31 
shcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 32 
asheets=$empty
- 
 
 33 
nssheets=$empty
32 
!for i=1 to $shcnt
 34 
!for i=1 to $shcnt
33 
 l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 35 
 l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
34 
 l=!word 1 of $l
 36 
 l=!word 1 of $l
35 
 !if $l>0
 37 
 !if $l>0
36 
  asheets=!append item $i to $asheets
 38 
  asheets=!append item $i to $asheets
- 
 
 39 
  !if $l>=2
- 
 
 40 
   nssheets=!append item $i to $nssheets
- 
 
 41 
  !endif
37 
 !endif
 42 
 !endif
38 
 nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 43 
 nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
39 
 sheet$i=$empty
 44 
 sheet$i=$empty
40 
 !for k=1 to $nbs
 45 
 !for k=1 to $nbs
41 
  d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i
 46 
  d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i