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
 !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
  !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
 !next l
!next k