Subversion Repositories DevTools

Rev

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

Rev 4256 Rev 4554
Line 72... Line 72...
72
Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"
72
Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"
73
Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"
73
Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"
74
Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"
74
Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"
75
Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"
75
Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"
76
'------------ Variable Init -------------------
76
'------------ Variable Init -------------------
77
Set rsCQ = Server.CreateObject("ADODB.Recordset")
-
 
78
parRtagA = Request("rtagA")
77
parRtagA = Request("rtagA")
79
parRtagB = Request("rtagB")
78
parRtagB = Request("rtagB")
80
parSBOMA = Request("sbomA")
79
parSBOMA = Request("sbomA")
81
parSBOMB = Request("sbomB")
80
parSBOMB = Request("sbomB")
82
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
81
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Line 403... Line 402...
403
 
402
 
404
End Function
403
End Function
405
'---------------------------------------------------------------------------------------------------------------------------
404
'---------------------------------------------------------------------------------------------------------------------------
406
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
405
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
407
 
406
 
408
    If OOrsCQ.State = 1 Then
-
 
409
        OOrsCQ.Close
-
 
410
    End If
-
 
411
 
-
 
412
    On Error Resume Next
407
    On Error Resume Next
413
    OOrsCQ.ActiveConnection = CQ_conn
408
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
414
    OOrsCQ.Source = SSsql
-
 
415
    OOrsCQ.CursorType = 0
-
 
416
    OOrsCQ.CursorLocation = 2
-
 
417
    OOrsCQ.LockType = 3
-
 
418
    OOrsCQ.Open()
-
 
419
    Get_CQ_Issues = Err.Number
409
    Get_CQ_Issues = Err.Number
420
 
410
 
421
End Function
411
End Function
422
'--------------------------------------------------------------------------------------------------------------------------
412
'--------------------------------------------------------------------------------------------------------------------------
423
Public Function TextToHTML ( sString )
413
Public Function TextToHTML ( sString )