Rev 14335 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!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 or $lastty!=$t
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