Subversion Repositories wimsdev

Rev

Rev 16568 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16568 Rev 17677
Line 26... Line 26...
26 
  error=studentwithoutfw
 26 
  error=studentwithoutfw
27 
  job=configfw
 27 
  job=configfw
28 
  !changeto $job.proc
 28 
  !changeto $job.proc
29 
!endif
 29 
!endif
30 
 
 30 
 
- 
 
 31 
!! remarks
- 
 
 32 
remarkmax=1000
31 
!! -------- save remark
 33 
!! -------- save remark
- 
 
 34 
!! before saving check consistency
- 
 
 35 
tmplength=!charcnt $remark
- 
 
 36 
!if $tmplength > $remarkmax
- 
 
 37 
  remark=!detag $remark
- 
 
 38 
  error=truncatedtext
- 
 
 39 
!endif
32 
remark=!char 1 to 1000 of $remark
 40 
remark=!char 1 to $remarkmax of $remark
33 
remark=!replace internal : by : in $remark
 41 
remark=!replace internal : by : in $remark
34 
test=!nospace $remark
 42 
test=!nospace $remark
35 
!if $test=$empty
 43 
!if $test=$empty
36 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
 44 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
37 
!else
 45 
!else
38 
  !if $remark!=$empty
 46 
  !if $remark!=$empty
39 
    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
 47 
    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark
40 
  !endif
 48 
  !endif
41 
!endif
 49 
!endif
42 
 
 50 
 
43 
!! -------- save finalremark
 51 
!! -------- save finalremark
- 
 
 52 
tmplength=!charcnt $finalremark
- 
 
 53 
!if $tmplength > $remarkmax
- 
 
 54 
  finalremark=!detag $finalremark
- 
 
 55 
  error=truncatedtext
- 
 
 56 
!endif
44 
finalremark=!char 1 to 1000 of $finalremark
 57 
finalremark=!char 1 to $remarkmax of $finalremark
45 
finalremark=!replace internal : by : in $finalremark
 58 
finalremark=!replace internal : by : in $finalremark
46 
test=!nospace $finalremark
 59 
test=!nospace $finalremark
47 
!if $test=$empty
 60 
!if $test=$empty
48 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark;
 61 
  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark;
49 
!else
 62 
!else