Subversion Repositories wimsdev

Rev

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

Rev 16545 Rev 16568
Line 27... Line 27...
27 
  job=configfw
 27 
  job=configfw
28 
  !changeto $job.proc
 28 
  !changeto $job.proc
29 
!endif
 29 
!endif
30 
 
 30 
 
31 
!! -------- save remark
 31 
!! -------- save remark
32 
remark=!char 1 to 1000 of $remark
 32 
finalremark=!char 1 to 1000 of $finalremark
33 
remark=!replace internal : by : in $remark
 33 
finalremark=!replace internal : by : in $finalremark
34 
!writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $remark
 34 
!writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark
- 
 
 35 
 
35 
 
 36 
 
36 
!! ------------ save new score (only if scoring>0)
 37 
!! ------------ save new score (only if scoring>0)
37 
!if $scoring>0
 38 
!if $scoring>0
38 
  key2=!positionof item $userv in $ulist
 39 
  key2=!positionof item $userv in $ulist
39 
  sendscore=$score
 40 
  sendscore=$score