Subversion Repositories wimsdev

Rev

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

Rev 2708 Rev 2819
Line 107... Line 107...
107 
 !read scripts/publish
 107 
 !read scripts/publish
108 
!endif
 108 
!endif
109 
 
 109 
 
110 
:end
 110 
:end
111 
status=!word 1 of $rep
 111 
status=!word 1 of $rep
- 
 
 112 
status2=$rep
112 
!if $status notwordof OK ERROR
 113 
!if $status notwordof OK ERROR
- 
 
 114 
 !if length limit isin $status2
- 
 
 115 
   rep=ERROR lengthlimit
- 
 
 116 
 !else
113 
 rep=ERROR noreply
 117 
   rep=ERROR noreply
- 
 
 118 
 !endif
114 
 !goto end
 119 
 !goto end
115 
!endif
 120 
!endif
116 
rep=!trim $rep
 121 
rep=!trim $rep
117 
sl=!charcnt $status
 122 
sl=!charcnt $status
118 
rep2=!char $sl+1 to -1 of $rep
 123 
rep2=!char $sl+1 to -1 of $rep
119 
 
 - 
 
120 
wims_module_log=publish $submitauth/$mod $submittype $status
 124 
wims_module_log=publish $submitauth/$mod $submittype $status