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