Subversion Repositories wimsdev

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

tooltip_parm=FONTSIZE,'11pt',ABOVE,'true'

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