Subversion Repositories wimsdev

Rev

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

Rev 14747 Rev 14766
Line 69... Line 69...
69 
        notcorrected=$[$nbcopies-$nbcorrectedcopies]
 69 
        notcorrected=$[$nbcopies-$nbcorrectedcopies]
70 
      !endif
 70 
      !endif
71 
    !endif
 71 
    !endif
72 
  !endif
 72 
  !endif
73 
!endif
 73 
!endif
74 
!! ------------ save new score
 74 
!! ------------ save new score (only if scoring>0)
- 
 
 75 
!if $scoring>0
75 
m=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
 76 
  m=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
76 
maxscore=!word 1 of $m
 77 
  maxscore=!word 1 of $m
77 
!bound maxscore between 0 and 100000 default 10
 78 
  !bound maxscore between 0 and 100000 default 10
78 
key2=!positionof item $student in $ulist
 79 
  key2=!positionof item $student in $ulist
79 
!bound score$key2 between 0 and $maxscore default $empty
 80 
  !bound score$key2 between 0 and $maxscore default $empty
80 
key=!positionof item $student in $uulist
 81 
  key=!positionof item $student in $uulist
81 
list=!values 0 for v=1 to $nbscore
 82 
  list=!values 0 for v=1 to $nbscore
82 
list=!replace internal 0 by $empty in $list
 83 
  list=!replace internal 0 by $empty in $list
83 
!if $key=$empty
 84 
  !if $key=$empty
84 
  list=!replace item number $scoring by $(score$key2) in $list
 85 
    list=!replace item number $scoring by $(score$key2) in $list
85 
  !appendfile wimshome/log/classes/$wims_class/.grades :$student,$(flist[$key2]) $(llist[$key2]),$list
 86 
    !appendfile wimshome/log/classes/$wims_class/.grades :$student,$(flist[$key2]) $(llist[$key2]),$list
86 
  uulist=!append item $student to $uulist
 87 
    uulist=!append item $student to $uulist
87 
!else
 88 
  !else
88 
  update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades
 89 
    update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades
89 
  update_content=!append item $list to $update_content
 90 
    update_content=!append item $list to $update_content
90 
  update_content=!item 1 to $[$nbscore+2] of $update_content
 91 
    update_content=!item 1 to $[$nbscore+2] of $update_content
91 
  update_content=!replace item number $[$scoring+2] by $(score$key2) in $update_content
 92 
    update_content=!replace item number $[$scoring+2] by $(score$key2) in $update_content
92 
  update_field=$[$key+1]
 93 
    update_field=$[$key+1]
93 
  update_nbline=$empty
 94 
    update_nbline=$empty
94 
  !read adm/uprecord wimshome/log/classes/$wims_class/.grades
 95 
    !read adm/uprecord wimshome/log/classes/$wims_class/.grades
- 
 
 96 
  !endif
95 
!endif
 97 
!endif
96 
!reset wims_deposit
 98 
!reset wims_deposit
97 
job=configfw
 99 
job=configfw
98 
!changeto $job.proc
 100 
!changeto $job.proc