Subversion Repositories wimsdev

Rev

Rev 9992 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9992 Rev 12429
Line 1... Line 1...
1 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
 1 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
2 
tooltip_parm=FONTSIZE,'11pt',ABOVE,'true'
 - 
 
3 
 
 2 
 
4 
!! add for varfilter
 3 
!! add for varfilter
5 
!if $wims_user=supervisor
 4 
!if $wims_user=supervisor
6 
 !readproc adm/vfilter/listvarfilter.proc
 5 
 !readproc adm/vfilter/listvarfilter.proc
7 
 !readproc adm/vfilter/varfilter proc
 6 
 !readproc adm/vfilter/varfilter proc
Line 25... Line 24...
25 
 !next l
 24 
 !next l
26 
!next k
 25 
!next k
27 
 
 26 
 
28 
!! ------------ make user skill database
 27 
!! ------------ make user skill database
29 
!for u=1 to $usercnt
 28 
!for u=1 to $usercnt
30 
 user=!record $u of wimshome/log/classes/$wims_class/.userlist
 29 
  user=!record $u of wimshome/log/classes/$wims_class/.userlist
31 
 !distribute item $user into lastname,firstname,user
 30 
  !distribute item $user into lastname,firstname,user
32 
 userlist=!append line $user,$lastname $firstname to $userlist
 31 
  userlist=!append line $user,$lastname $firstname to $userlist
33 
 userlist=!append item $user to $userlist
 32 
  userlist=!append item $user to $userlist
34 
 userscore=!getscoremean user=$user
 33 
  userscore=!getscoremean user=$user
35 
 skillu_$u=$empty
 34 
  skillu_$u=$empty
36 
 !for k=1 to $livret_nbcomp
 35 
  !for k=1 to $livret_nbcomp
37 
  comp=$empty
 36 
    comp=$empty
38 
  !for l=1 to $(nbpalier_$k)
 37 
    !for l=1 to $(nbpalier_$k)
39 
   nbit=!linecnt $(skill_$(k)_$(l))
 38 
      nbit=!linecnt $(skill_$(k)_$(l))
40 
   pal=0
 39 
      pal=0
41 
   !for m=1 to $nbit
 40 
      !for m=1 to $nbit
42 
    t=!line $m of $(skill_$(k)_$(l))
 41 
        t=!line $m of $(skill_$(k)_$(l))
43 
    s=!word $(t[2]) of $(userscore[$(convert_table[$(t[1])]);])
 42 
        s=!word $(t[2]) of $(userscore[$(convert_table[$(t[1])]);])
44 
    !if $s>=$livret_minac
 43 
        !if $s>=$livret_minac
45 
     pal=$pal+$s/$nbit
 44 
          pal=$pal+$s/$nbit
46 
    !else
 45 
        !else
47 
     !if $s!=0
 46 
          !if $s!=0
48 
      pal=$pal+0
 47 
            pal=$pal+0
49 
     !endif
 48 
          !endif
50 
    !endif
 49 
        !endif
51 
   !next m
 50 
      !next m
52 
   comp=!append item $pal to $comp
 51 
      comp=!append item $pal to $comp
53 
  !next l
 52 
    !next l
54 
  skillu_$u=!append line $comp to $(skillu_$u)
 53 
    skillu_$u=!append line $comp to $(skillu_$u)
55 
 !next k
 54 
  !next k
56 
!next u
 55 
!next u