Subversion Repositories wimsdev

Rev

Rev 14341 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14339 guerimand 1
!! ------------ save new score for all participant in the class
14537 guerimand 2
!if $putiworkco!=0 or $codownload!=1
3
  !restart module=adm/class/freework&job=configfw&freework=$freework
4
!endif
14339 guerimand 5
!sh mv $wims_home/log/classes/$wims_class/.grades $wims_home/log/classes/$wims_class/.grades.old
6
data=!record 1 of wimshome/log/classes/$wims_class/.grades.old
7
!writefile wimshome/log/classes/$wims_class/.grades :$data
14341 guerimand 8
!!-- save score for old user
9
ltolduser=!listcomplement $ulist in $uulist
10
!if $ltolduser!=$empty
11
  nb=!itemcnt $ltolduser
12
  !for i=1 to $nb
13
    key=!positionof item $(ltolduser[$i]) in $uulist
14
    update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old
15
    !appendfile wimshome/log/classes/$wims_class/.grades :$update_content
16
  !next i
17
!endif
18
 
14339 guerimand 19
!for i=1 to $nbuser
20
  student=!item $i of $ulist
21
  key=!positionof item $student in $uulist
22
  !bound score$i between 0 and $maxscore default $empty
23
  !if $key=$empty
24
    list=!values 0 for v=1 to $nbscore
25
    list=!replace internal 0 by $empty in $list
26
    list=!replace item number $scoring by $(score$i) in $list
27
    !appendfile wimshome/log/classes/$wims_class/.grades :$student,$(flist[$i]) $(llist[$i]),$list
28
  !else
29
    update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old
30
    update_content=!replace item number $[$scoring+2] by $(score$i) in $update_content
31
    !appendfile wimshome/log/classes/$wims_class/.grades :$update_content
32
  !endif
33
!next i
34
!sh rm -f $wims_home/log/classes/$wims_class/.grades.old
35
!restart module=adm/class/freework&job=configfw&freework=$freework