Subversion Repositories wimsdev

usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist

wims_superclass=!defof class_superclass\
in wimshome/log/classes/$wims_class/.def

!if $wims_superclass=$empty
 wims_superclass=$wims_class
!endif

t=!defof user_exists\
user_firstname\
user_lastname in wimshome/log/classes/$wims_superclass/.users/$user
!distribute line $t into test,user_firstname,user_lastname
!if $test!=yes
  error=nouser
  !exit
!endif
score=!getscoremean user=$user
!for k=1 to $livret_nbcomp
  nbit_$k=0
  !for l=1 to $livret_nbpalier
    l_$(k)_$(l)=0
  !next l
!next k

maxnbpalier=0
!for k=1 to $livret_nbcomp
  t=!record $k of wimshome/log/classes/$wims_class/livret/.comps
  !distribute line $t into title_$k,nbpalier_$k
  maxnbpalier=$[max($maxnbpalier,$(nbpalier_$k))]
  !for l=1 to $(nbpalier_$k)
    list=!record $l of wimshome/log/classes/$wims_class/livret/.comp$k
    list=!line 2 of $list
    nbit=!itemcnt $list
    list2=$empty
    !for it in $list
      t=!replace internal . by , in $it
      !if $(t[1]) notitemof $livret_nonactivesheet
        list2=!append line $(t[1]),$(t[2]) to $list2
      !endif
    !next it
   nbit=!linecnt $list2
   !if $nbit>0
      !increase nbit_$k
      !for m=1 to $nbit
        t=!line $m of $list2
        s=!line $(convert_table[$(t[1])]) of $score
        s=!word $(t[2]) of $s
        !if $s>=$livret_minac
          l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit
        !else
          !if $s>0
            l_$(k)_$(l)=$(l_$(k)_$(l))+0
          !endif
        !endif
      !next it
    !endif
  !next l
!next k