Subversion Repositories wimsdev

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