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