Subversion Repositories DevTools

Rev

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

Rev 6627 Rev 6683
Line 151... Line 151...
151 
'-----------------------------------------------------------------------------------------------------------------------------
 151 
'-----------------------------------------------------------------------------------------------------------------------------
152 
Function To_ClearCase ( SSpkgLabel )
 152 
Function To_ClearCase ( SSpkgLabel )
153 
	To_ClearCase = "element * "& SSpkgLabel
 153 
	To_ClearCase = "element * "& SSpkgLabel
154 
End Function
 154 
End Function
155 
'-----------------------------------------------------------------------------------------------------------------------------
 155 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 156 
Function To_Simple ( SSpkg, SSver )
- 
 
 157 
	To_Simple = SSpkg & ", "& SSver
- 
 
 158 
End Function
- 
 
 159 
'-----------------------------------------------------------------------------------------------------------------------------
156 
Function To_HTML ( sStr )
 160 
Function To_HTML ( sStr )
157 
	If NOT IsNull(sStr) Then To_HTML = Server.HTMLEncode( sStr )
 161 
	If NOT IsNull(sStr) Then To_HTML = Server.HTMLEncode( sStr )
158 
End Function
 162 
End Function
159 
'-----------------------------------------------------------------------------------------------------------------------------
 163 
'-----------------------------------------------------------------------------------------------------------------------------
160 
Function SQLstring ( SSstr )
 164 
Function SQLstring ( SSstr )