Subversion Repositories wimsdev

Rev

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