Subversion Repositories wimsdev

Rev

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