Rev 3095 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3095 | Rev 12429 | ||
---|---|---|---|
Line 11... | Line 11... | ||
11 | t=!defof user_exists\ |
11 | t=!defof user_exists\ |
12 | user_firstname\ |
12 | user_firstname\ |
13 | user_lastname in wimshome/log/classes/$wims_superclass/.users/$user |
13 | user_lastname in wimshome/log/classes/$wims_superclass/.users/$user |
14 | !distribute line $t into test,user_firstname,user_lastname |
14 | !distribute line $t into test,user_firstname,user_lastname |
15 | !if $test!=yes |
15 | !if $test!=yes |
16 | error=nouser |
16 | error=nouser |
17 | !exit |
17 | !exit |
18 | !endif |
18 | !endif |
19 | score=!getscoremean user=$user |
19 | score=!getscoremean user=$user |
20 | !for k=1 to $livret_nbcomp |
20 | !for k=1 to $livret_nbcomp |
21 | nbit_$k=0 |
21 | nbit_$k=0 |
22 | !for l=1 to $livret_nbpalier |
22 | !for l=1 to $livret_nbpalier |
23 | l_$(k)_$(l)=0 |
23 | l_$(k)_$(l)=0 |
24 | !next l |
24 | !next l |
25 | !next k |
25 | !next k |
26 | 26 | ||
27 | maxnbpalier=0 |
27 | maxnbpalier=0 |
28 | !for k=1 to $livret_nbcomp |
28 | !for k=1 to $livret_nbcomp |
29 | t=!record $k of wimshome/log/classes/$wims_class/livret/.comps |
29 | t=!record $k of wimshome/log/classes/$wims_class/livret/.comps |
30 | !distribute line $t into title_$k,nbpalier_$k |
30 | !distribute line $t into title_$k,nbpalier_$k |
31 | maxnbpalier=$[max($maxnbpalier,$(nbpalier_$k))] |
31 | maxnbpalier=$[max($maxnbpalier,$(nbpalier_$k))] |
32 | !for l=1 to $(nbpalier_$k) |
32 | !for l=1 to $(nbpalier_$k) |
33 | list=!record $l of wimshome/log/classes/$wims_class/livret/.comp$k |
33 | list=!record $l of wimshome/log/classes/$wims_class/livret/.comp$k |
34 | list=!line 2 of $list |
34 | list=!line 2 of $list |
35 | nbit=!itemcnt $list |
35 | nbit=!itemcnt $list |
36 | list2=$empty |
36 | list2=$empty |
37 | !for it in $list |
37 | !for it in $list |
38 | t=!replace internal . by , in $it |
38 | t=!replace internal . by , in $it |
39 | !if $(t[1]) notitemof $livret_nonactivesheet |
39 | !if $(t[1]) notitemof $livret_nonactivesheet |
40 | list2=!append line $(t[1]),$(t[2]) to $list2 |
40 | list2=!append line $(t[1]),$(t[2]) to $list2 |
41 | !endif |
41 | !endif |
42 | !next it |
42 | !next it |
43 | nbit=!linecnt $list2 |
43 | nbit=!linecnt $list2 |
44 | !if $nbit>0 |
44 | !if $nbit>0 |
45 | !increase nbit_$k |
45 | !increase nbit_$k |
46 | !for m=1 to $nbit |
46 | !for m=1 to $nbit |
47 | t=!line $m of $list2 |
47 | t=!line $m of $list2 |
48 | s=!line $(convert_table[$(t[1])]) of $score |
48 | s=!line $(convert_table[$(t[1])]) of $score |
49 | s=!word $(t[2]) of $s |
49 | s=!word $(t[2]) of $s |
50 | !if $s>=$livret_minac |
50 | !if $s>=$livret_minac |
51 | l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit |
51 | l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit |
52 | !else |
52 | !else |
53 | !if $s>0 |
53 | !if $s>0 |
54 | l_$(k)_$(l)=$(l_$(k)_$(l))+0 |
54 | l_$(k)_$(l)=$(l_$(k)_$(l))+0 |
- | 55 | !endif |
|
55 |
|
56 | !endif |
- | 57 | !next it |
|
56 | !endif |
58 | !endif |
57 | !next it |
- | |
58 | !endif |
- | |
59 | !next l |
59 | !next l |
60 | !next k |
60 | !next k |
61 | - |