Subversion Repositories wimsdev

Rev

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