Subversion Repositories wimsdev

!!!!read adm/class/classlang names.phtml

!if $wims_user!=supervisor
 error=not_supervisor
 !exit
!endif

ucnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
!reset ulist,flist,llist,uulist
!for i=1 to $ucnt
 u_=!record $i of wimshome/log/classes/$wims_class/.userlist
 !distribute item $u_ into l_,f_,n_
 ulist=!append item $n_ to $ulist
 flist=!append item $f_ to $flist
 llist=!append item $l_ to $llist
!next i

uucnt=!recordcnt wimshome/log/classes/$wims_class/.grades
!if $uucnt>0
 uucnt=$[$uucnt-1]
!endif
!for i=1 to $uucnt
 u_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
 n_=!item 1 of $u_
 uulist=!append item $n_ to $uulist
!next i

gr=!record 1 of wimshome/log/classes/$wims_class/.grades
gr=!trim $gr
!distribute lines $gr into percent,titles,weights
titles=!item 3 to -1 of $titles
weights=!item 3 to -1 of $weights
gcnt=!itemcnt $titles
!default percent=0

wtot=0
!for i=1 to $gcnt
 w_=!item $i of $weights
 !bound w_ between 0 and 1000 default 1
 wtot=$[$wtot+$w_]
!next i

m=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
maxscore=!word 1 of $m
!bound maxscore between 0 and 100000 default 10