Subversion Repositories wimsdev

!set ash=$activesh
!for i=1 to $eactivecnt
  tt=!item $i of $activexams
  ash=!append item E$tt to $ash
!next i

!for j in $ash
 !distribute item 0,0,0,100000 into cnt_$j,per_$j,max_$j,min_$j
!next j

!distribute item 0,0,0 into mean_tea,mean_auto,mean_glob
!distribute item 0,0,0 into tea_cnt,auto_cnt, glob_cnt
!distribute item 0,0,0 into max_tea,max_auto,max_glob
!distribute item 100000,100000,100000 into min_tea,min_auto,min_glob
!for i=1 to $usercnt
 uu=!record $i of wimshome/log/classes/$wims_class/.userlist
 uu=!item 3 of $uu
 !read adm/class/userscore
 mean_auto=$[$mean_auto+$per]
 !if $per>0
  max_auto=$[max($max_auto,$per)]
  min_auto=$[min($min_auto,$per)]
  !advance auto_cnt
 !endif
 !if $manual>0
  !default manual_$uu=0
  glob=$[rint($manual*$(manual_$uu)+(100-$manual)*($per))/100]
  !distribute item $[$mean_glob+$glob],$[$mean_tea+$(manual_$uu)] into mean_glob,mean_tea
  !if $(manual_$uu)>0
   !distribute item $[max($max_tea,$(manual_$uu))],\
        $[min($min_tea,$(manual_$uu))] into max_tea,min_tea
   !advance tea_cnt
  !endif
  !if $glob>0
   !distribute item $[max($max_glob,$glob)],$[min($min_glob,$glob)] into\
        max_glob,min_glob
  !endif
 !endif
 !if $per>0 or ($manual>0 and $(manual_$uu)>0)
  !advance glob_cnt
 !endif
 !for j in $ash
   !if E isin $j
    k=!char 2 to -1 of $j
    p_=$[rint(10*$scoremax*$(es_$k))/100]
   !else
    p_=!line $j of $percents
    !distribute words $p_ into p1,p2,p3,p4
    !if $p2!=$empty
     !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
     !set ff_$j=!mathsubst Q=$y_ in $(f_$j)
     !for sev=0 to 2
       !set ff_$j=!mathsubst I$sev=$(x$(sev)_) in $(ff_$j)
     !next
     p_=$[ceil(100*$scoremax*$(ff_$j))/100]
    !else
     p_=0
    !endif
   !endif
   per_$j=$[$(per_$j)+$p_]
   !if $p_>0
    min_$j=$[min($(min_$j),$p_)]
    max_$j=$[max($(max_$j),$p_)]
    !advance cnt_$j
   !endif
 !next j
!next i
!if $manual<1
  !distribute item $mean_auto,$max_auto,$min_auto,$auto_cnt into\
        mean_glob,max_glob,min_glob,glob_cnt
!endif

!distribute item $[rint(100*$mean_auto/max(1,$auto_cnt))/100],\
        $[rint(100*$mean_tea/max(1,$tea_cnt))/100],\
        $[rint(100*$mean_glob/max(1,$glob_cnt))/100]\
        into mean_auto,mean_tea,mean_glob

t=!translate = to , in $wims_req_time
t=!item -1 of $t
means=$t\
$min_auto $mean_auto $max_auto $min_tea $mean_tea $max_tea $min_glob $mean_glob $max_glob

!for j in $ash
 pp=$[rint(100*$(per_$j)/max(1,$(cnt_$j)))/100]
 means=!append line $j $(min_$j) $pp $(max_$j) to $means
!next j

!writefile wimshome/log/classes/$wims_class/scoreavg $means