Subversion Repositories wimsdev

Rev

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

Rev 2935 Rev 3040
Line 16... Line 16...
16 
!set livret_description=$empty\
 16 
!set livret_description=$empty\
17 
!set livret_defined=yes\
 17 
!set livret_defined=yes\
18 
!set livret_scoreview=-1\
 18 
!set livret_scoreview=-1\
19 
!set livret_scoreoption=class
 19 
!set livret_scoreoption=class
20 
 !readdef $livret_dir/.def
 20 
 !readdef $livret_dir/.def
21 
!endif
 - 
 
22 
 
 - 
 
23 
!if $livret_supervise=yes
 - 
 
24 
 sh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 - 
 
25 
 !for i=1 to $sh
 - 
 
26 
  l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 - 
 
27 
  l=!word 1 of $l
 - 
 
28 
  !if $l>0
 - 
 
29 
   asheets=!append item $i to $asheets
 - 
 
30 
  !endif
 - 
 
31 
  nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 - 
 
32 
  sheet$i=$empty
 - 
 
33 
  !for k=1 to $nbs
 - 
 
34 
   d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i
 - 
 
35 
   !distribute line $d into bla,bla,bla,bla,r5,r6
 - 
 
36 
   sheet$i=!append line <b>$r5</b> <small>$r6</small> to $(sheet$i)
 - 
 
37 
  !next k
 - 
 
38 
 !next i
 - 
 
39 
!endif
 21 
!endif
40 
 
 22 
 
41 
!distribute line $livret_scorecolor\
 23 
!distribute line $livret_scorecolor\
42 
$livret_scoreview into wims_scorecolor,wims_scoreview
 24 
$livret_scoreview into wims_scorecolor,wims_scoreview
43 
!default wims_scorecolor=,red,red,red,orange,orange,orange,yellow,yellow,green,green
 25 
!default wims_scorecolor=,red,red,red,orange,orange,orange,yellow,yellow,green,green
44 
!default wims_scoreview=-1
 26 
!default wims_scoreview=-1
45 
!if class isin $livret_scoreoption
 27 
!if class isin $livret_scoreoption
46 
 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
47 
!endif
 29 
!endif
- 
 
 30 
 
- 
 
 31 
shcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 32 
!for i=1 to $shcnt
- 
 
 33 
 l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 34 
 l=!word 1 of $l
- 
 
 35 
 !if $l>0
- 
 
 36 
  asheets=!append item $i to $asheets
- 
 
 37 
 !endif
- 
 
 38 
 nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
- 
 
 39 
 sheet$i=$empty
- 
 
 40 
 !for k=1 to $nbs
- 
 
 41 
  d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i
- 
 
 42 
  !distribute line $d into bla,bla,bla,bla,r5,r6
- 
 
 43 
  sheet$i=!append line <b>$r5</b> <small>$r6</small> to $(sheet$i)
- 
 
 44 
 !next k
- 
 
 45 
!next i
48 
 
 46 
 
49 
convert_table=$empty
 47 
convert_table=$empty
50 
tmp=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
 48 
tmp=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
51 
ntmp=!linecnt $tmp
 49 
ntmp=!linecnt $tmp
52 
cpt=1
 50 
cpt=1
Line 56... Line 54...
56 
  t=$cpt
 54 
  t=$cpt
57 
  !increase cpt
 55 
  !increase cpt
58 
 !else
 56 
 !else
59 
  t=$empty
 57 
  t=$empty
60 
 !endif
 58 
 !endif
61 
 convert_table=!append item $t to $convert_table
 59 
 convert_table=$convert_table,$t
62 
!next k
 60 
!next k
- 
 
 61 
convert_table=!item 2 to -1 of $convert_table
- 
 
 62 
convert_table=!nospace $convert_table
- 
 
 63 
 
- 
 
 64 
v=!values v for v=1 to $shcnt
- 
 
 65 
nasheets=!listcomplement $asheets in $v