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