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 |