Subversion Repositories wimsdev

!! ------------ save new score for all participant in the class

m=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity

maxscore=!word 1 of $m

!bound maxscore between 0 and 100000 default 10

!sh mv $wims_home/log/classes/$wims_class/.grades $wims_home/log/classes/$wims_class/.grades.old

data=!record 1 of wimshome/log/classes/$wims_class/.grades.old

!writefile wimshome/log/classes/$wims_class/.grades :$data

!for i=1 to $nbuser

  student=!item $i of $ulist

  key=!positionof item $student in $uulist

  !bound score$i between 0 and $maxscore default $empty

  !if $key=$empty

    list=!values 0 for v=1 to $nbscore

    list=!replace internal 0 by $empty in $list

    list=!replace item number $scoring by $(score$i) in $list

    !appendfile wimshome/log/classes/$wims_class/.grades :$student,$(flist[$i]) $(llist[$i]),$list

  !else

    update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old

    update_content=!replace item number $[$scoring+2] by $(score$i) in $update_content

    !appendfile wimshome/log/classes/$wims_class/.grades :$update_content

  !endif

!next i

!sh rm -f $wims_home/log/classes/$wims_class/.grades.old

!restart module=adm/class/freework&job=configfw&freework=$freework