Subversion Repositories wimsdev

Rev

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