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