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 */