Rev 2935 | Rev 9567 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2935 | Rev 4570 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | tooltip_parm=FONTSIZE,'11pt',ABOVE,'true' |
2 | tooltip_parm=FONTSIZE,'11pt',ABOVE,'true' |
3 | 3 | ||
4 | userscore=$empty |
- | |
5 | userlist=$empty |
4 | userlist=$empty |
6 | !for u=1 to $usercnt |
- | |
7 | user=!record $u of wimshome/log/classes/$wims_class/.userlist |
- | |
8 |
|
5 | !! ------------ make of skill exercice contribution |
9 | userlist=!append line $user,$lastname $firstname to $userlist |
- | |
10 | userscore_$u=!getscoremean user=$user |
- | |
11 | userlist=!append item $user to $userlist |
- | |
12 | !for k=1 to $livret_nbcomp |
- | |
13 | !for l=1 to $(nbpalier_$k) |
- | |
14 | l_$(u)_$(k)_$(l)=0 |
- | |
15 | !next l |
- | |
16 | !next k |
- | |
17 | !next u |
- | |
18 | !for k=1 to $livret_nbcomp |
6 | !for k=1 to $livret_nbcomp |
19 | !for l=1 to $(nbpalier_$k) |
7 | !for l=1 to $(nbpalier_$k) |
20 | list=!record $l of $livret_dir/.comp$k |
8 | list=!record $l of $livret_dir/.comp$k |
21 | list=!line 2 of $list |
9 | list=!line 2 of $list |
22 | list2=$empty |
10 | list2=$empty |
Line 24... | Line 12... | ||
24 | t=!replace internal . by , in $it |
12 | t=!replace internal . by , in $it |
25 | !if $(t[1]) notitemof $livret_nonactivesheet |
13 | !if $(t[1]) notitemof $livret_nonactivesheet |
26 | list2=!append line $(t[1]),$(t[2]) to $list2 |
14 | list2=!append line $(t[1]),$(t[2]) to $list2 |
27 | !endif |
15 | !endif |
28 | !next it |
16 | !next it |
29 |
|
17 | skill_$(k)_$(l)=$list2 |
- | 18 | !next l |
|
- | 19 | !next k |
|
- | 20 | ||
- | 21 | !! ------------ make user skill database |
|
30 |
|
22 | !for u=1 to $usercnt |
- | 23 | user=!record $u of wimshome/log/classes/$wims_class/.userlist |
|
- | 24 | !distribute item $user into lastname,firstname,user |
|
- | 25 | userlist=!append line $user,$lastname $firstname to $userlist |
|
- | 26 | userlist=!append item $user to $userlist |
|
- | 27 | userscore=!getscoremean user=$user |
|
- | 28 | skillu_$u=$empty |
|
- | 29 | !for k=1 to $livret_nbcomp |
|
- | 30 | comp=$empty |
|
- | 31 | !for l=1 to $(nbpalier_$k) |
|
31 |
|
32 | nbit=!linecnt $(skill_$(k)_$(l)) |
- | 33 | pal=0 |
|
32 | !for |
34 | !for m=1 to $nbit |
- | 35 | t=!line $m of $(skill_$(k)_$(l)) |
|
33 | s=!word $(t[2]) of $( |
36 | s=!word $(t[2]) of $(userscore[$(convert_table[$(t[1])]);]) |
34 | !if $s>=$livret_minac |
37 | !if $s>=$livret_minac |
35 |
|
38 | pal=$pal+$s/$nbit |
36 | !else |
39 | !else |
37 | !if $s!=0 |
40 | !if $s!=0 |
38 |
|
41 | pal=$pal+0 |
39 | !endif |
42 | !endif |
40 | !endif |
43 | !endif |
41 | !next |
44 | !next m |
- | 45 | comp=!append item $pal to $comp |
|
42 | !next |
46 | !next l |
- | 47 | skillu_$u=!append line $comp to $(skillu_$u) |
|
43 | !next |
48 | !next k |
44 | !next |
49 | !next u |