Subversion Repositories wimsdev

maxcomp=20
maxpalier=8
!if $wims_class=$empty
 !exit
!endif
!if $wims_user=supervisor
  livret_supervise=yes
!else
  livret_supervise=no
!endif
livret_dir=wimshome/log/classes/$wims_class/livret
Livret_dir=$wims_home/log/classes/$wims_class/livret

!readdef $livret_dir/.def

!if $livret_defined!=yes
  !sh mkdir -p $Livret_dir;
  !filewrite $livret_dir/.def !set livret_title=$wims_name_livret\
!set livret_description=$empty\
!set livret_defined=yes\
!set livret_scoreview=-1\
!set livret_scoreoption=class
  !readdef $livret_dir/.def
!endif

!distribute line $livret_scorecolor\
$livret_scoreview into wims_scorecolor,wims_scoreview
!default wims_scorecolor=#9C9C9C,red,red,red,orange,orange,orange,yellow,yellow,green,green
!default wims_scoreview=-1
!if class isin $livret_scoreoption
  wims_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def
!endif

shcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
asheets=$empty
nssheets=$empty
!for i=1 to $shcnt
  l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  l=!word 1 of $l
  !if $l>0
    asheets=!append item $i to $asheets
    !if $l>=2
      nssheets=!append item $i to $nssheets
    !endif
  !endif
  nbs=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
  sheet$i=$empty
  !for k=1 to $nbs
    d=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$i
    !distribute line $d into bla,bla,bla,bla,r5,r6
    sheet$i=!append line <span class="bold">$r5</span> <span class="small">$r6</span> to $(sheet$i)
  !next k
!next i

convert_table=$empty
tmp=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
ntmp=!linecnt $tmp
cpt=1
!for k=1 to $ntmp
  t=!line $k of $tmp
  !if $t!=$empty
    t=$cpt
    !increase cpt
  !else
    t=$empty
  !endif
  convert_table=$convert_table,$t
!next k
convert_table=!item 2 to -1 of $convert_table
convert_table=!nospace $convert_table

v=!values v for v=1 to $shcnt
nasheets=!listcomplement $asheets in $v