Subversion Repositories DevTools

Rev

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

Rev 29 Rev 4554
Line 42... Line 42...
42 
	Dim query, rsCQ
 42 
	Dim query, rsCQ
43
43
44 
	query = GetQuery ("IssuesList_cqDEVI.sql")
 44 
	query = GetQuery ("IssuesList_cqDEVI.sql")
45 
	query = Replace( query, "/*DEVIiss*/", nIssID )
 45 
	query = Replace( query, "/*DEVIiss*/", nIssID )
46
46
47 
	Set rsCQ = Server.CreateObject("ADODB.Recordset")
 47 
	Set rsCQ = Nothing
48
48
49 
	nErrNumber = GetCQIssue ( query, rsCQ )
 49 
	nErrNumber = GetCQIssue ( query, rsCQ )
50
50
51 
	If nErrNumber = 0 Then
 51 
	If nErrNumber = 0 Then
52 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 52 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
Line 57... Line 57...
57 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
 57 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
58 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
 58 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
59
59
60 
		End If
 60 
		End If
61 
	End If
 61 
	End If
- 
 
 62 
 
- 
 
 63 
	Set rsCQ = Nothing
62
64
63 
End Sub
 65 
End Sub
64 
'----------------------------------------------------------------------------------------------------------------------------------------
 66 
'----------------------------------------------------------------------------------------------------------------------------------------
65 
Function  GetCQIssue ( sSQL, oRsCQ )
 67 
Function  GetCQIssue ( sSQL, oRsCQ )
- 
 
 68 
 
66 
	On Error Resume Next
 69 
    On Error Resume Next
67 
	oRsCQ.ActiveConnection = CQ_CONN
 70 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
68 
	oRsCQ.Source = sSQL
 - 
 
69 
	oRsCQ.CursorType = 0
 - 
 
70 
	oRsCQ.CursorLocation = 2
 - 
 
71 
	oRsCQ.LockType = 3
 - 
 
72 
	oRsCQ.Open()
 - 
 
73
- 
 
74 
	GetCQIssue = Err.Number
 71 
    GetCQIssue = Err.Number
75
72
76 
End Function
 73 
End Function
77 
'----------------------------------------------------------------------------------------------------------------------------------------
 74 
'----------------------------------------------------------------------------------------------------------------------------------------
78 
Function SetRowColor( cRowColor )
 75 
Function SetRowColor( cRowColor )
79 
	If cRowColor = "" Then
 76 
	If cRowColor = "" Then