Rev 2361 | Rev 2861 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2131 | bpr | 1 | |
1319 | guerimand | 2 | maxcomp=20 |
3 | maxpalier=5 |
||
1845 | guerimand | 4 | !if $wims_user=supervisor |
5 | livret_supervise=yes |
||
6 | !else |
||
7 | livret_supervise=no |
||
8 | !endif |
||
9 | livret_dir=wimshome/log/classes/$wims_class/livret |
||
1951 | guerimand | 10 | Livret_dir=$wims_home/log/classes/$wims_class/livret |
1319 | guerimand | 11 | |
1845 | guerimand | 12 | !readdef $livret_dir/.def |
13 | |||
14 | !if $livret_defined!=yes |
||
1951 | guerimand | 15 | !sh mkdir -p $Livret_dir; |
1845 | guerimand | 16 | !filewrite $livret_dir/.def !set livret_title=$wims_name_livret\ |
1319 | guerimand | 17 | !set livret_description=$empty\ |
1951 | guerimand | 18 | !set livret_defined=yes\ |
19 | !set livret_scoreview=-1\ |
||
20 | !set livret_scoreoption=class |
||
1845 | guerimand | 21 | !readdef $livret_dir/.def |
22 | !endif |
||
1319 | guerimand | 23 | |
1845 | guerimand | 24 | !if $livret_supervise=yes |
25 | sh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
26 | !for i=1 to $sh |
||
27 | l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets |
||
28 | l=!word 1 of $l |
||
29 | !if $l>0 |
||
30 | asheets=!append item $i to $asheets |
||
31 | !endif |
||
32 | nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i |
||
33 | sheet$i=$empty |
||
34 | !for k=1 to $nbs |
||
35 | d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i |
||
36 | !distribute line $d into bla,bla,bla,bla,r5,r6 |
||
37 | sheet$i=!append line <b>$r5</b> <small>$r6</small> to $(sheet$i) |
||
38 | !next k |
||
39 | !next i |
||
1319 | guerimand | 40 | !endif |
41 | |||
1951 | guerimand | 42 | !distribute line $livret_scorecolor\ |
43 | $livret_scoreview into wims_scorecolor,wims_scoreview |
||
44 | !default wims_scorecolor=,red,red,red,orange,orange,orange,yellow,yellow,green,green |
||
45 | !default wims_scoreview=-1 |
||
46 | !if class isin $livret_scoreoption |
||
47 | wims_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def |
||
48 | !endif |