Subversion Repositories wimsdev

Rev

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
 !distribute item $user into lastname,firstname,user
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
  nbit=!linecnt $list2
17
  skill_$(k)_$(l)=$list2
-
 
18
 !next l
-
 
19
!next k
-
 
20
 
-
 
21
!! ------------ make user skill database
30
  !for m=1 to $nbit
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
   t=!line $m of $list2
32
   nbit=!linecnt $(skill_$(k)_$(l))
-
 
33
   pal=0
32
   !for u=1 to $usercnt
34
   !for m=1 to $nbit
-
 
35
    t=!line $m of $(skill_$(k)_$(l))
33
    s=!word $(t[2]) of $(userscore_$(u)[$(convert_table[$(t[1])]);])
36
    s=!word $(t[2]) of $(userscore[$(convert_table[$(t[1])]);])
34
    !if $s>=$livret_minac
37
    !if $s>=$livret_minac
35
     l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+$s/$nbit
38
     pal=$pal+$s/$nbit
36
    !else
39
    !else
37
     !if $s!=0
40
     !if $s!=0
38
      l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+0
41
      pal=$pal+0
39
     !endif
42
     !endif
40
    !endif
43
    !endif
41
   !next u
44
   !next m
-
 
45
   comp=!append item $pal to $comp
42
  !next m
46
  !next l
-
 
47
  skillu_$u=!append line $comp to $(skillu_$u)
43
 !next l
48
 !next k
44
!next k
49
!next u