Subversion Repositories DevTools

Rev

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

Rev 13 Rev 4177
Line 220... Line 220...
220 
	MinorVersion = CInt(arrVersion(1))
 220 
	MinorVersion = CInt(arrVersion(1))
221 
	FormatVersion = MajorVersion &"."& MinorVersion
 221 
	FormatVersion = MajorVersion &"."& MinorVersion
222
222
223 
End Function
 223 
End Function
224 
'-----------------------------------------------------------------------------------------------------------------------------
 224 
'-----------------------------------------------------------------------------------------------------------------------------
225 
Function GetBuildTypeString( enumBuildType )
 - 
 
226
- 
 
227 
	If (NOT IsNull(enumBuildType)) OR (NOT enumBuildType = "") Then
 - 
 
228
- 
 
229 
		Select Case CInt(enumBuildType)
 - 
 
230 
			Case enumDB_BUILD_TYPE_NONE
 - 
 
231 
				GetBuildTypeString = "Build type not applicable"
 - 
 
232
- 
 
233 
			Case enumDB_BUILD_TYPE_DEBUG
 - 
 
234 
				GetBuildTypeString = "Debug"
 - 
 
235
- 
 
236 
			Case enumDB_BUILD_TYPE_PROD
 - 
 
237 
				GetBuildTypeString = "Production"
 - 
 
238
- 
 
239 
			Case enumDB_BUILD_TYPE_PROD_AND_DEBUG
 - 
 
240 
				GetBuildTypeString = "Production and Debug"
 - 
 
241
- 
 
242 
			Case enumDB_BUILD_TYPE_JAVA_1_4
 - 
 
243 
				GetBuildTypeString = "Java 1.4"
 - 
 
244
- 
 
245 
			Case enumDB_BUILD_TYPE_JAVA_1_5
 - 
 
246 
				GetBuildTypeString = "Java 1.5"
 - 
 
247
- 
 
248 
		End Select
 - 
 
249
- 
 
250 
	Else
 - 
 
251 
		GetBuildTypeString = "Build type not defined"
 - 
 
252 
	End If
 - 
 
253
- 
 
254
- 
 
255 
End Function
 - 
 
256 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
257 
%>
 225 
%>
258 

            226