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