Subversion Repositories wimsdev

Rev

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

Rev 9365 Rev 9405
Line -... Line 1...
-
 
1
limitpart=10
-
 
2
!default maxday=365
1
!read adm/class/classlang names.phtml
3
!read adm/class/classlang names.phtml
2
 
4
 
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
wims_prefix=class user tmp n sharing sharable
5
!read tabletheme
6
!read tabletheme
6
!if $wims_user!=supervisor
7
!if $wims_user!=supervisor
7
 error=not_supervisor
8
 error=not_supervisor
8
 !!user=$wims_user
9
 !!user=$wims_user
Line 15... Line 16...
15
    var_line=!singlespace $(varfilter[$v;])
16
    var_line=!singlespace $(varfilter[$v;])
16
    var_line =!replace $ $ by , in $var_line
17
    var_line =!replace $ $ by , in $var_line
17
    varfilter_=!append line $var_line to $varfilter_
18
    varfilter_=!append line $var_line to $varfilter_
18
  !next
19
  !next
19
!endif
20
!endif
20
!exit
-
 
21
 
-
 
22
!bound share within yes,no default no
-
 
23
!if $share=yes
-
 
24
 ssh=!defof sharing_sheet in wimshome/log/classes/$wims_class/neighbors
-
 
25
 !if $ssh!=$empty
-
 
26
  ssh=!item 1 of $ssh
-
 
27
  sh1=!defof sharable_sheet in wimshome/log/classes/$ssh/neighbors
-
 
28
  sht=
-
 
29
  !for sh in $sh1
-
 
30
   shs=!defof sharing_sheet in wimshome/log/classes/$sh/neighbors
-
 
31
   !if $shs=$ssh
-
 
32
    sht=$sht $sh
-
 
33
   !endif
-
 
34
  !next sh
-
 
35
 !endif
-
 
36
!endif
-
 
37
sharer=!defof sharable_sheet sharing_sheet in wimshome/log/classes/$wims_class/neighbors
-
 
38
sharer=!items2words $sharer $sht
-
 
39
 
-
 
40
stcnt=0
-
 
41
show=!listintersect $show and req,weight,cid,tot,scoremean,partmean,minmax,deviat
-
 
42
!if $show!=$empty
-
 
43
 test=!listintersect $show and tot,scoremean,partmean,minmax,deviat
-
 
44
 !if $test!=$empty
-
 
45
  hdrow=2
-
 
46
 !else
-
 
47
  hdrow=1
-
 
48
 !endif
-
 
49
 !bound types between integer 1 and 3 default 1
-
 
50
 t=!item $types of score,noscore,score noscore
-
 
51
 cl=$wims_class
-
 
52
 usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
-
 
53
 !if $sharer!=$empty and $share=yes
-
 
54
  sha=!words2items $sharer
-
 
55
  sha=!listuniq $sha
-
 
56
  sha=!listcomplement $wims_class in $sha
-
 
57
  !for c in $sha
-
 
58
   cl=$cl $c
-
 
59
   cnt=!recordcnt wimshome/log/classes/$c/.userlist
-
 
60
   usercnt=$[$usercnt+$cnt]
-
 
61
  !next c
-
 
62
 !endif
-