Subversion Repositories wimsdev

Rev

Rev 2368 | Rev 14243 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2368 Rev 14111
Line 3... Line 3...
3 
fields=typ,sh,exo,newcnt,sccnt,scsum,dursum,scavg,duravg,scmin,durmin,scmax,durmax,scdev,durdev,cid
 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
 4 
wims_prefix=class user tmp n sharing sharable
5 
!read tabletheme
 5 
!read tabletheme
6 
 
 6 
 
7 
!if $wims_user!=supervisor
 7 
!if $wims_user!=supervisor
8 
 error=not_supervisor
 8 
  error=not_supervisor
9 
 !exit
 9 
  !exit
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
!bound share within yes,no default no
 12 
!bound share within yes,no default no
13 
!if $share=yes
 13 
!if $share=yes
14 
 ssh=!defof sharing_sheet in wimshome/log/classes/$wims_class/neighbors
 14 
  ssh=!defof sharing_sheet in wimshome/log/classes/$wims_class/neighbors
15 
 !if $ssh!=$empty
 15 
  !if $ssh!=$empty
16 
  ssh=!item 1 of $ssh
 16 
    ssh=!item 1 of $ssh
17 
  sh1=!defof sharable_sheet in wimshome/log/classes/$ssh/neighbors
 17 
    sh1=!defof sharable_sheet in wimshome/log/classes/$ssh/neighbors
18 
  sht=
 18 
    sht=
19 
  !for sh in $sh1
 19 
    !for sh in $sh1
20 
   shs=!defof sharing_sheet in wimshome/log/classes/$sh/neighbors
 20 
      shs=!defof sharing_sheet in wimshome/log/classes/$sh/neighbors
21 
   !if $shs=$ssh
 21 
      !if $shs=$ssh
22 
    sht=$sht $sh
 22 
        sht=$sht $sh
23 
   !endif
 23 
      !endif
24 
  !next sh
 24 
    !next sh
25 
 !endif
 25 
  ! endif
26 
!endif
 26 
!endif
27 
sharer=!defof sharable_sheet sharing_sheet in wimshome/log/classes/$wims_class/neighbors
 27 
sharer=!defof sharable_sheet sharing_sheet in wimshome/log/classes/$wims_class/neighbors
28 
sharer=!items2words $sharer $sht
 28 
sharer=!items2words $sharer $sht
29 
 
 29 
 
30 
stcnt=0
 30 
stcnt=0
31 
show=!listintersect $show and req,weight,cid,tot,scoremean,partmean,minmax,deviat
 31 
show=!listintersect $show and req,weight,cid,tot,scoremean,partmean,minmax,deviat
32 
!if $show!=$empty
 32 
!if $show!=$empty
33 
 test=!listintersect $show and tot,scoremean,partmean,minmax,deviat
 33 
  test=!listintersect $show and tot,scoremean,partmean,minmax,deviat
34 
 !if $test!=$empty
 34 
  !if $test!=$empty
35 
  hdrow=2
 35 
    hdrow=2
36 
 !else
 36 
  !else
37 
  hdrow=1
 37 
    hdrow=1
38 
 !endif
 - 
 
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\
 - 
 
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
 - 
 
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
 - 
 
65 
  !if $sh!=$lastsh
 - 
 
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
 38 
  !endif
- 
 
 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\
- 
 
 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
- 
 
 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
- 
 
 65 
    !if $sh!=$lastsh
- 
 
 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
 74 
  !next i
75 
 end$lastty$lastsh=$stcnt
 75 
 end$lastty$lastsh=$stcnt
76 
!endif
 76 
!endif
77 
 
 -