Subversion Repositories wimsdev

Rev

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
     !endif    
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
 
-