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