Subversion Repositories wimsdev

Rev

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

Rev 16542 Rev 16568
Line 29... Line 29...
29 
!endif
 29 
!endif
30 
 
 30 
 
31 
!! -------- save remark
 31 
!! -------- save remark
32 
remark=!char 1 to 1000 of $remark
 32 
remark=!char 1 to 1000 of $remark
33 
remark=!replace internal : by : in $remark
 33 
remark=!replace internal : by : in $remark
- 
 
 34 
test=!nospace $remark
- 
 
 35 
!if $test=$empty
- 
 
 36 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
- 
 
 37 
!else
- 
 
 38 
  !if $remark!=$empty
34 
!writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $remark
 39 
    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
- 
 
 40 
  !endif
- 
 
 41 
!endif
- 
 
 42 
 
- 
 
 43 
!! -------- save finalremark
- 
 
 44 
finalremark=!char 1 to 1000 of $finalremark
- 
 
 45 
finalremark=!replace internal : by : in $finalremark
- 
 
 46 
test=!nospace $finalremark
- 
 
 47 
!if $test=$empty
- 
 
 48 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark;
- 
 
 49 
!else
- 
 
 50 
  !if $finalremark!=$empty
- 
 
 51 
    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark
- 
 
 52 
  !endif
- 
 
 53 
!endif
- 
 
 54 
 
35 
 
 55 
 
36 
job=viewuser3
 56 
job=viewuser3
37 
!changeto $job.proc
 57 
!changeto $job.proc