Subversion Repositories DevTools

Rev

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

Rev 62 Rev 4556
Line 65... Line 65...
65
Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"
65
Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"
66
Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"
66
Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"
67
Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"
67
Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"
68
Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"
68
Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"
69
'------------ Variable Init -------------------
69
'------------ Variable Init -------------------
70
Set rsCQ = Server.CreateObject("ADODB.Recordset")
-
 
71
parRtagA = Request("rtagA")
70
parRtagA = Request("rtagA")
72
parRtagB = Request("rtagB")
71
parRtagB = Request("rtagB")
73
parSBOMA = Request("sbomA")
72
parSBOMA = Request("sbomA")
74
parSBOMB = Request("sbomB")
73
parSBOMB = Request("sbomB")
75
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
74
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Line 265... Line 264...
265
	
264
	
266
End Function
265
End Function
267
'---------------------------------------------------------------------------------------------------------------------------
266
'---------------------------------------------------------------------------------------------------------------------------
268
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
267
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
269
 
268
 
270
	If OOrsCQ.State = 1 Then 
-
 
271
		OOrsCQ.Close
-
 
272
	End If
-
 
273
	
-
 
274
	On Error Resume Next
269
	On Error Resume Next
275
	OOrsCQ.ActiveConnection = CQ_conn
270
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
276
	OOrsCQ.Source = SSsql
-
 
277
	OOrsCQ.CursorType = 0
-
 
278
	OOrsCQ.CursorLocation = 2
-
 
279
	OOrsCQ.LockType = 3
-
 
280
	OOrsCQ.Open()
-
 
281
	Get_CQ_Issues = Err.Number
271
	Get_CQ_Issues = Err.Number
282
	
272
	
283
End Function
273
End Function
284
'--------------------------------------------------------------------------------------------------------------------------
274
'--------------------------------------------------------------------------------------------------------------------------
285
Public Function TextToHTML ( sString )
275
Public Function TextToHTML ( sString )