Subversion Repositories wimsdev

Rev

Rev 14335 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2368 bpr 1
!read adm/class/classlang names.phtml
23 reyssat 2
 
3
fields=typ,sh,exo,newcnt,sccnt,scsum,dursum,scavg,duravg,scmin,durmin,scmax,durmax,scdev,durdev,cid
4
wims_prefix=class user tmp n sharing sharable
5
!read tabletheme
6
 
7
!if $wims_user!=supervisor
14111 bpr 8
  error=not_supervisor
9
  !exit
23 reyssat 10
!endif
11
 
12
!bound share within yes,no default no
13
!if $share=yes
14111 bpr 14
  ssh=!defof sharing_sheet in wimshome/log/classes/$wims_class/neighbors
15
  !if $ssh!=$empty
16
    ssh=!item 1 of $ssh
17
    sh1=!defof sharable_sheet in wimshome/log/classes/$ssh/neighbors
18
    sht=
19
    !for sh in $sh1
20
      shs=!defof sharing_sheet in wimshome/log/classes/$sh/neighbors
21
      !if $shs=$ssh
22
        sht=$sht $sh
23
      !endif
24
    !next sh
14243 czzmrn 25
  !endif
23 reyssat 26
!endif
27
sharer=!defof sharable_sheet sharing_sheet in wimshome/log/classes/$wims_class/neighbors
28
sharer=!items2words $sharer $sht
29
 
30
stcnt=0
31
show=!listintersect $show and req,weight,cid,tot,scoremean,partmean,minmax,deviat
32
!if $show!=$empty
14111 bpr 33
  test=!listintersect $show and tot,scoremean,partmean,minmax,deviat
34
  !if $test!=$empty
35
    hdrow=2
36
  !else
37
    hdrow=1
23 reyssat 38
  !endif
14111 bpr 39
  !bound types between integer 1 and 3 default 1
40
  t=!item $types of score,noscore,score noscore
41
  cl=$wims_class
42
  usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
43
  !if $sharer!=$empty and $share=yes
44
    sha=!words2items $sharer
45
    sha=!listuniq $sha
46
    sha=!listcomplement $wims_class in $sha
47
    !for c in $sha
48
      cl=$cl $c
49
      cnt=!recordcnt wimshome/log/classes/$c/.userlist
50
      usercnt=$[$usercnt+$cnt]
51
    !next c
52
  !endif
53
  !sh export exostat_dirbase exostat_types exostat_classes\
14335 bpr 54
    exostat_dirbase=$wims_home/log/classes\
55
    exostat_types="$t"\
56
    exostat_classes="$cl"\
57
    ../bin/exostat >$wims_home/log/classes/$wims_class/exostat
14111 bpr 58
  stcnt=!recordcnt wimshome/log/classes/$wims_class/exostat
59
  lastsh=0
60
  lastty=
61
  listsh=
62
  !for i=1 to $stcnt
63
    l=!record $i of wimshome/log/classes/$wims_class/exostat
64
    !distribute words $l into t,sh,exo
16865 guerimand 65
    !if $sh!=$lastsh or $lastty!=$t
14111 bpr 66
      start$t$sh=$i
67
      !if $i>0 and $lastsh>0
68
        end$lastty$lastsh=$[$i-1]
69
      !endif
70
      lastsh=$sh
71
      lastty=$t
72
      listsh=!append item $t$sh to $listsh
73
    !endif
74
  !next i
23 reyssat 75
 end$lastty$lastsh=$stcnt
76
!endif