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\