Subversion Repositories wimsdev

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

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

!! add for varfilter

!if $wims_user=supervisor

 !readproc adm/vfilter/listvarfilter.proc

 !readproc adm/vfilter/varfilter proc

!endif

userlist=$empty

!! ------------ make of skill exercice contribution

!for k=1 to $livret_nbcomp

 !for l=1 to $(nbpalier_$k)

  list=!record $l of $livret_dir/.comp$k

  list=!line 2 of $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

  skill_$(k)_$(l)=$list2

 !next l

!next k

!! ------------ make user skill database

!for u=1 to $usercnt

 user=!record $u of wimshome/log/classes/$wims_class/.userlist

 !distribute item $user into lastname,firstname,user

 userlist=!append line $user,$lastname $firstname to $userlist

 userlist=!append item $user to $userlist

 userscore=!getscoremean user=$user

 skillu_$u=$empty

 !for k=1 to $livret_nbcomp

  comp=$empty

  !for l=1 to $(nbpalier_$k)

   nbit=!linecnt $(skill_$(k)_$(l))

   pal=0

   !for m=1 to $nbit

    t=!line $m of $(skill_$(k)_$(l))

    s=!word $(t[2]) of $(userscore[$(convert_table[$(t[1])]);])

    !if $s>=$livret_minac

     pal=$pal+$s/$nbit

    !else

     !if $s!=0

      pal=$pal+0

     !endif

    !endif

   !next m

   comp=!append item $pal to $comp

  !next l

  skillu_$u=!append line $comp to $(skillu_$u)

 !next k

!next u