Subversion Repositories wimsdev

joker=--
!if $un=$empty
  un=$getuser
!endif
u=!positionof item $un in $ulist
f_=!item $u of $flist
l_=!item $u of $llist
username=$f_ $l_
uu_cnt=!recordcnt wimshome/log/classes/$wims_class/.grades
!if $reg!=$empty
 glist=
 !for g=1 to $gcnt
  c$g=$[$(c$g)]
  !bound c$g between 0 and $maxscore default 0
  glist=!append item $(c$g) to $glist
 !next g
 glist=$un,$username,$glist
 !for i=1 to $[max($uucnt,$uu_cnt-1)]
  l_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
  n_=!item 1 of $l_
  n_=!hex $n_
  g_$n_=$l_
 !next i
 g_$un=$glist
 t=!record 1 of wimshome/log/classes/$wims_class/.grades
 !writefile wimshome/log/classes/$wims_class/.grades :$t
 !for uu=1 to $ucnt
  t_=!item $uu of $ulist
  t_=!hex $t_
  !if $uu != $u 
   !appendfile wimshome/log/classes/$wims_class/.grades :$(g_$t_)
  !else
   !appendfile wimshome/log/classes/$wims_class/.grades :$glist
  !endif
 !next uu
 !read var.init
!endif

u_=!positionof item $un in $uulist
!if $u_ !=
 grades=!record $u_+1 of wimshome/log/classes/$wims_class/.grades
 grades=!item 3 to -1 of $grades
!else
 glist=!makelist $joker for x=1 to $gcnt
 grades=$glist
!endif