Rev 6146 | Rev 12053 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1319 | guerimand | 1 | maxcomp=20 |
2 | maxpalier=5 |
||
1845 | guerimand | 3 | !if $wims_user=supervisor |
4 | livret_supervise=yes |
||
5 | !else |
||
6 | livret_supervise=no |
||
7 | !endif |
||
8 | livret_dir=wimshome/log/classes/$wims_class/livret |
||
1951 | guerimand | 9 | Livret_dir=$wims_home/log/classes/$wims_class/livret |
1319 | guerimand | 10 | |
1845 | guerimand | 11 | !readdef $livret_dir/.def |
12 | |||
13 | !if $livret_defined!=yes |
||
1951 | guerimand | 14 | !sh mkdir -p $Livret_dir; |
1845 | guerimand | 15 | !filewrite $livret_dir/.def !set livret_title=$wims_name_livret\ |
1319 | guerimand | 16 | !set livret_description=$empty\ |
1951 | guerimand | 17 | !set livret_defined=yes\ |
18 | !set livret_scoreview=-1\ |
||
19 | !set livret_scoreoption=class |
||
1845 | guerimand | 20 | !readdef $livret_dir/.def |
21 | !endif |
||
1319 | guerimand | 22 | |
1951 | guerimand | 23 | !distribute line $livret_scorecolor\ |
24 | $livret_scoreview into wims_scorecolor,wims_scoreview |
||
9563 | guerimand | 25 | !default wims_scorecolor=#9C9C9C,red,red,red,orange,orange,orange,yellow,yellow,green,green |
1951 | guerimand | 26 | !default wims_scoreview=-1 |
27 | !if class isin $livret_scoreoption |
||
28 | wims_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def |
||
29 | !endif |
||
2935 | guerimand | 30 | |
3040 | guerimand | 31 | shcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
4344 | guerimand | 32 | asheets=$empty |
33 | nssheets=$empty |
||
3040 | guerimand | 34 | !for i=1 to $shcnt |
35 | l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets |
||
36 | l=!word 1 of $l |
||
37 | !if $l>0 |
||
38 | asheets=!append item $i to $asheets |
||
4344 | guerimand | 39 | !if $l>=2 |
40 | nssheets=!append item $i to $nssheets |
||
41 | !endif |
||
3040 | guerimand | 42 | !endif |
43 | nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i |
||
44 | sheet$i=$empty |
||
45 | !for k=1 to $nbs |
||
46 | d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i |
||
47 | !distribute line $d into bla,bla,bla,bla,r5,r6 |
||
6146 | bpr | 48 | sheet$i=!append line <span class="bold">$r5</span> <span class="small">$r6</span> to $(sheet$i) |
3040 | guerimand | 49 | !next k |
50 | !next i |
||
51 | |||
2935 | guerimand | 52 | convert_table=$empty |
53 | tmp=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight |
||
54 | ntmp=!linecnt $tmp |
||
55 | cpt=1 |
||
56 | !for k=1 to $ntmp |
||
57 | t=!line $k of $tmp |
||
58 | !if $t!=$empty |
||
59 | t=$cpt |
||
60 | !increase cpt |
||
61 | !else |
||
62 | t=$empty |
||
63 | !endif |
||
3040 | guerimand | 64 | convert_table=$convert_table,$t |
2935 | guerimand | 65 | !next k |
3040 | guerimand | 66 | convert_table=!item 2 to -1 of $convert_table |
67 | convert_table=!nospace $convert_table |
||
68 | |||
69 | v=!values v for v=1 to $shcnt |
||
70 | nasheets=!listcomplement $asheets in $v |