Subversion Repositories wimsdev

!read adm/class/userisinclass ,$getuser
!if yes notin $script_reply
 error=bad_usercls
 !reset job,getuser
 !exit
!endif

!if $getuser!=$empty
 m=!record 1 of wimshome/log/classes/$wims_class/.grades
 !distribute lines $m into manual,titles,weights
 gcnt=!itemcnt $titles
 gcnt=$[$gcnt-2]
 !if $gcnt<1
  manual=0
 !else
  mwtot=0
  !for g=1 to $gcnt
   w$g=!item $g+2 of $weights
   mwtot=$[$mwtot+$(w$g)]
  !next g
 !endif
 !if $manual>0
  uucnt=!recordcnt wimshome/log/classes/$wims_class/.grades
  !for u=2 to $uucnt
   l_=!record $u of wimshome/log/classes/$wims_class/.grades
   n_=!item 1 of $l_
   !if $n_=$getuser
    teacher=!item 3 to -1 of $l_
    !break
   !endif
  !next u
  mav=0
  !for i=1 to $gcnt
   g_$i=!item $i of $teacher
   mav=$[$mav+($(g_$i))*($(w$i))]
  !next i
  mav=$[rint(100*$mav/$mwtot)/100]
 !else
  mav=0
 !endif
 t=!translate = to , in $wims_req_time
 t=!item -1 of $t
 means=!record 0 of wimshome/log/classes/$wims_class/scoreavg
 topscores=!record 0 of wimshome/log/classes/$wims_class/.scoretop
 topnb=!defof class_topscores in wimshome/log/classes/$wims_class/.def
 classnb=!defof class_limit in wimshome/log/classes/$wims_class/.def
 !for ic=1 to $classnb
  UU=!line $ic of $topscores
  UU1=!item 4 of $UU
  VV=!append line $UU1 to $VV
  WW=!append line $UU to $WW
 !next ic
 VV=!sort reverse numeric line  $VV
!readdef wimshome/log/classes/$wims_class/.def
!default class_topscores=0
 !for s=1 to $class_topscores
  ic=!item $s of $wims_sort_order
  LL=!line $ic of $WW
  TT=!append line $LL to $TT
 !next s
 ot=!line 1 of $means
 !if $ot=$empty or $ot<$t-3
  !read var.avg
  !if $class_type notwordof 2 3 4
   !if $class_topscores>0
    !read var.topscores
   !endif
  !endif
 !endif
 l=!line 2 of $means

 !distribute words $l into\
        min_auto,mean_auto,max_auto,\
        min_tea,mean_tea,max_tea,\
        min_glob,mean_glob,max_glob
 c=!linecnt $means
 !for i=3 to $c
  l=!line $i of $means
  s=!word 1 of $l
  !distribute words $l into x0_,min_$s,mean_$s,max_$s
 !next i
 uu=$getuser
 !read adm/class/userscore
 globalav=$[rint($manual*$mav+((100-$manual)*$per))/100]
 exologs=!filelist $wims_home/log/classes/$wims_class/exolog/$getuser
!else
 job=
!endif

!if $wims_user=supervisor
 !read var.proc.userexam
!endif