Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 75... Line 75...
75 
		BoldSelected = "<b>"& sItem &"</b>"
 75 
		BoldSelected = "<b>"& sItem &"</b>"
76 
	Else
 76 
	Else
77 
		BoldSelected = sItem
 77 
		BoldSelected = sItem
78 
	End If
 78 
	End If
79 
End Function
 79 
End Function
- 
 
 80 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 81 
Function Get_From_DUAL ( SSclm )
- 
 
 82 
	Dim rsTemp, Query_String, OraSession2, OraDatabase2
- 
 
 83 
	Set OraSession2 = CreateObject("OracleInProcServer.XOraSession")
- 
 
 84 
	Set OraDatabase2 = OraSession2.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
- 
 
 85
- 
 
 86 
	Query_String = _
- 
 
 87 
	" SELECT "& SSclm &" AS result FROM DUAL"
- 
 
 88 
	Set rsTemp = OraDatabase2.DbCreateDynaset( Query_String, cint(0))
- 
 
 89
- 
 
 90 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
- 
 
 91 
		Get_From_DUAL = (rsTemp.Fields("result"))
- 
 
 92 
	End If
- 
 
 93
- 
 
 94 
	rsTemp.Close
- 
 
 95 
	Set rsTemp = nothing
- 
 
 96 
	Set OraDatabase2 = nothing
- 
 
 97 
	Set OraSession2 = nothing
- 
 
 98 
End Function
80 
'----------------------------------------------------------------------------------------------------------------------------------------------
 99 
'----------------------------------------------------------------------------------------------------------------------------------------------
81 
Sub InitialiseCrumbs ( objCrumbs )
 100 
Sub InitialiseCrumbs ( objCrumbs )
82 
	Dim rsCrumb
 101 
	Dim rsCrumb
83 
	'L1par = enumDB_DEFAULT_EMPTY
 102 
	'L1par = enumDB_DEFAULT_EMPTY
84 
	'L2par = enumDB_DEFAULT_EMPTY
 103 
	'L2par = enumDB_DEFAULT_EMPTY
Line 458... Line 477...
458 
		If rsQry("is_rejected") = enumDB_YES Then
 477 
		If rsQry("is_rejected") = enumDB_YES Then
459 
			GetProductIcon = LIMG_BB_PRODUCT_REJECTED
 478 
			GetProductIcon = LIMG_BB_PRODUCT_REJECTED
460
479
461 
		ElseIf rsQry("is_obsolete") = enumDB_YES Then
 480 
		ElseIf rsQry("is_obsolete") = enumDB_YES Then
462 
			GetProductIcon = LIMG_BB_PATCH_OBSOLETE
 481 
			GetProductIcon = LIMG_BB_PATCH_OBSOLETE
- 
 
 482
463 
		ElseIf rsQry("is_patch") = enumDB_YES Then
 483 
		ElseIf rsQry("is_patch") = enumDB_YES Then
464 
			GetProductIcon = LIMG_BB_PATCH
 484 
			GetProductIcon = LIMG_BB_PATCH
- 
 
 485
- 
 
 486
465
487
466 
		End If
 488 
		End If
467
489
468 
	Else
 490 
	Else
469 
		'/* Single Value is passed */
 491 
		'/* Single Value is passed */