Subversion Repositories wimsdev

Rev

Rev 12359 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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