Subversion Repositories wimsdev

!if $ucnt>$maxuser
 error=too_many_users
 method=list
 !exit
!endif

!bound cc between integer 1 and $gcnt+1 default $[$gcnt+1]
!bound percent between 0 and 100 default 0

!if $reg=$empty or $title=$empty
 !exit
!endif

!for i=1 to $uucnt
 l_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
 n_=!item 1 of $l_
 n_=!hex $n_
 g_$n_=$l_
!next i

title=!translate ,\
$ to ; $ in $title
weight=$[$weight]
!bound weight between 0 and 1000 default 1
!if $gcnt<$cc
 titles=!append item $title to $titles
 weights=!append item $weight to $weights
!else
 titles=!replace item number $cc by $title in $titles
 weights=!replace item number $cc by $weight in $weights
!endif

!writefile wimshome/log/classes/$wims_class/.grades :$percent\
title,title,$titles\
weights,weights,$weights
!!-- save score for old user
ltolduser=!listcomplement $ulist in $uulist
!if $ltolduser!=$empty
  nb=!itemcnt $ltolduser
  !for i=1 to $nb
    key=!positionof item $(ltolduser[$i]) in $uulist
    li=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old
    !appendfile wimshome/log/classes/$wims_class/.grades :$li
  !next i
!endif

!for i=1 to $ucnt
!! c$i=$[$(c$i)]
 !bound c$i between 0 and $maxscore default $joker
 n_=!item $i of $ulist
 f_=!item $i of $flist
 l_=!item $i of $llist
 h_=!hex $n_
 v_=!item 3 to -1 of $(g_$h_)
 t_=!itemcnt $v_
 !if $t_<$cc
  !for k=$t_ to $cc-2
   v_=!append item $ to $v_
  !next k
  v_=!append item $(c$i) to $v_
 !else
  v_=!replace item number $cc by $(c$i) in $v_
 !endif
 v_=!replace internal $joker by $empty in $v_
 !appendfile wimshome/log/classes/$wims_class/.grades :$n_,$f_ $l_,$v_
!next i

!read var.init