Subversion Repositories wimsdev

Rev

Rev 14889 | Rev 16738 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14889 Rev 16422
Line 30... Line 30...
30
  !endif
30
  !endif
31
!endif
31
!endif
32
 
32
 
33
!! ---------- make a column in .grades file for this scoring
33
!! ---------- make a column in .grades file for this scoring
34
!if $scoring=0 and $type>=2
34
!if $scoring=0 and $type>=2
-
 
35
  test=!fileexists wimshome/log/classes/$wims_class/.grades
-
 
36
  !if $test=yes
35
  data=!record 1 of wimshome/log/classes/$wims_class/.grades
37
    data=!record 1 of wimshome/log/classes/$wims_class/.grades
36
  !distribute line $data into l1,l2,l3
38
    !distribute line $data into l1,l2,l3
37
  l2=!append item $wims_name_freework $freework to $l2
39
    l2=!append item $wims_name_freework $freework to $l2
38
  l3=!append item 1 to $l3
40
    l3=!append item 1 to $l3
39
  update_field=1
41
    update_field=1
40
  update_content=$l1\
42
    update_content=$l1\
41
$l2\
43
$l2\
42
$l3
44
$l3
43
  !read adm/uprecord wimshome/log/classes/$wims_class/.grades
45
    !read adm/uprecord wimshome/log/classes/$wims_class/.grades
44
  !increase nbscore
46
    !increase nbscore
45
  scoring=$nbscore
47
    scoring=$nbscore
-
 
48
  !else
-
 
49
    !writefile wimshome/log/classes/$wims_class/.grades :0\
-
 
50
title,title,$wims_name_freework $freework\
-
 
51
weight,weight,1
-
 
52
    nbscore=1
-
 
53
    scoring=1
-
 
54
  !endif
46
!endif
55
!endif
47
 
56
 
48
!! change statut
57
!! change statut
49
activetest=1
58
activetest=1
50
update_content=1\
59
update_content=1\