Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

fields=typ,sh,exo,newcnt,sccnt,scsum,dursum,scavg,duravg,scmin,durmin,scmax,durmax,scdev,durdev,cid
wims_prefix=class user tmp n sharing sharable
!read tabletheme

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

!bound share within yes,no default no
!if $share=yes
 ssh=!defof sharing_sheet in wimshome/log/classes/$wims_class/neighbors
 !if $ssh!=$empty
  ssh=!item 1 of $ssh
  sh1=!defof sharable_sheet in wimshome/log/classes/$ssh/neighbors
  sht=
  !for sh in $sh1
   shs=!defof sharing_sheet in wimshome/log/classes/$sh/neighbors
   !if $shs=$ssh
    sht=$sht $sh
   !endif
  !next sh
 !endif
!endif
sharer=!defof sharable_sheet sharing_sheet in wimshome/log/classes/$wims_class/neighbors
sharer=!items2words $sharer $sht

stcnt=0
show=!listintersect $show and req,weight,cid,tot,scoremean,partmean,minmax,deviat
!if $show!=$empty
 test=!listintersect $show and tot,scoremean,partmean,minmax,deviat
 !if $test!=$empty
  hdrow=2
 !else
  hdrow=1
 !endif
 !bound types between integer 1 and 3 default 1
 t=!item $types of score,noscore,score noscore
 cl=$wims_class
 usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
 !if $sharer!=$empty and $share=yes
  sha=!words2items $sharer
  sha=!listuniq $sha
  sha=!listcomplement $wims_class in $sha
  !for c in $sha
   cl=$cl $c
   cnt=!recordcnt wimshome/log/classes/$c/.userlist
   usercnt=$[$usercnt+$cnt]
  !next c
 !endif
 !sh export exostat_dirbase exostat_types exostat_classes\
        exostat_dirbase=$wims_home/log/classes\
        exostat_types="$t"\
        exostat_classes="$cl"\
        ../bin/exostat >$wims_home/log/classes/$wims_class/exostat
 stcnt=!recordcnt wimshome/log/classes/$wims_class/exostat
 lastsh=0
 lastty=
 listsh=
 !for i=1 to $stcnt
  l=!record $i of wimshome/log/classes/$wims_class/exostat
  !distribute words $l into t,sh,exo
  !if $sh!=$lastsh
   start$t$sh=$i
   !if $i>0 and $lastsh>0
    end$lastty$lastsh=$[$i-1]
   !endif
   lastsh=$sh
   lastty=$t
   listsh=!append item $t$sh to $listsh
  !endif
 !next i
 end$lastty$lastsh=$stcnt
!endif