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 |