Subversion Repositories wimsdev

Rev

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

Rev 14339 Rev 14341
Line 4... Line 4...
4 
maxscore=!word 1 of $m
 4 
maxscore=!word 1 of $m
5 
!bound maxscore between 0 and 100000 default 10
 5 
!bound maxscore between 0 and 100000 default 10
6 
!sh mv $wims_home/log/classes/$wims_class/.grades $wims_home/log/classes/$wims_class/.grades.old
 6 
!sh mv $wims_home/log/classes/$wims_class/.grades $wims_home/log/classes/$wims_class/.grades.old
7 
data=!record 1 of wimshome/log/classes/$wims_class/.grades.old
 7 
data=!record 1 of wimshome/log/classes/$wims_class/.grades.old
8 
!writefile wimshome/log/classes/$wims_class/.grades :$data
 8 
!writefile wimshome/log/classes/$wims_class/.grades :$data
- 
 
 9 
!!-- save score for old user
- 
 
 10 
ltolduser=!listcomplement $ulist in $uulist
- 
 
 11 
!if $ltolduser!=$empty
- 
 
 12 
  nb=!itemcnt $ltolduser
- 
 
 13 
  !for i=1 to $nb
- 
 
 14 
    key=!positionof item $(ltolduser[$i]) in $uulist
- 
 
 15 
    update_content=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old
- 
 
 16 
    !appendfile wimshome/log/classes/$wims_class/.grades :$update_content
- 
 
 17 
  !next i
- 
 
 18 
!endif
- 
 
 19 
 
9 
!for i=1 to $nbuser
 20 
!for i=1 to $nbuser
10 
  student=!item $i of $ulist
 21 
  student=!item $i of $ulist
11 
  key=!positionof item $student in $uulist
 22 
  key=!positionof item $student in $uulist
12 
  !bound score$i between 0 and $maxscore default $empty
 23 
  !bound score$i between 0 and $maxscore default $empty
13 
  !if $key=$empty
 24 
  !if $key=$empty