Subversion Repositories wimsdev

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

!! 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