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