Subversion Repositories DevTools

Rev

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

Rev 159 Rev 4134
Line 234... Line 234...
234 
	MinorVersion = CInt(arrVersion(1))
 234 
	MinorVersion = CInt(arrVersion(1))
235 
	FormatVersion = MajorVersion &"."& MinorVersion
 235 
	FormatVersion = MajorVersion &"."& MinorVersion
236 
 
 236 
 
237 
End Function
 237 
End Function
238 
'-----------------------------------------------------------------------------------------------------------------------------
 238 
'-----------------------------------------------------------------------------------------------------------------------------
239 
Function GetBuildTypeString( enumBuildType )
 - 
 
240 
 
 - 
 
241 
	If (NOT IsNull(enumBuildType)) OR (NOT enumBuildType = "") Then
 - 
 
242 
 
 - 
 
243 
		Select Case CInt(enumBuildType)
 - 
 
244 
			Case enumDB_BUILD_TYPE_NONE
 - 
 
245 
				GetBuildTypeString = "Build type not specified"
 - 
 
246 
 
 - 
 
247 
			Case enumDB_BUILD_TYPE_DEBUG
 - 
 
248 
				GetBuildTypeString = "Debug"
 - 
 
249 
 
 - 
 
250 
			Case enumDB_BUILD_TYPE_PROD
 - 
 
251 
				GetBuildTypeString = "Production"
 - 
 
252 
 
 - 
 
253 
			Case enumDB_BUILD_TYPE_PROD_AND_DEBUG
 - 
 
254 
				GetBuildTypeString = "Production and Debug"
 - 
 
255 
 
 - 
 
256 
			Case enumDB_BUILD_TYPE_JAVA_1_4
 - 
 
257 
				GetBuildTypeString = "Java 1.4"
 - 
 
258 
 
 - 
 
259 
			Case enumDB_BUILD_TYPE_JAVA_1_5
 - 
 
260 
				GetBuildTypeString = "Java 1.5"
 - 
 
261 
 
 - 
 
262 
			Case enumDB_BUILD_TYPE_JAVA_1_6
 - 
 
263 
				GetBuildTypeString = "Java 1.6"
 - 
 
264 
 
 - 
 
265 
		End Select
 - 
 
266 
 
 - 
 
267 
	Else
 - 
 
268 
		GetBuildTypeString = "Build type not defined"
 - 
 
269 
	End If
 - 
 
270 
 
 - 
 
271 
 
 - 
 
272 
End Function
 - 
 
273 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
274 
%>
 239 
%>