| Line 1... |
Line 1... |
| 1 |
'-------------------------------------------------
|
1 |
'-------------------------------------------------
|
| 2 |
' Function: getJiraIssueList
|
2 |
' Function: getJiraIssueList
|
| 3 |
' Description: Populate a Scripting.Dictionary variable with a list of issues
|
3 |
' Description: Populate a Scripting.Dictionary variable with a list of issues
|
| 4 |
' Args: NNpv_id - PV_ID to process
|
4 |
' Args: NNpv_id - PV_ID List to process (Comma sep)
|
| 5 |
' issueInfo - Scripting Dictionary to populate
|
5 |
' issueInfo - Scripting Dictionary to populate
|
| - |
|
6 |
' Will be cleared before use
|
| 6 |
'
|
7 |
'
|
| 7 |
Sub getJiraIssueList ( NNpv_id, issueInfo)
|
8 |
Sub getJiraIssueList ( NNpv_id, issueInfo)
|
| 8 |
Dim rsTemp, sqlstr, jkey
|
9 |
Dim rsTemp, sqlstr, jkey, retVal
|
| 9 |
|
10 |
|
| 10 |
' Extract Data
|
11 |
' Extract Data
|
| 11 |
sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id=" & NNpv_id & " ORDER BY iss_key ASC"
|
12 |
sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id in (" & NNpv_id & ")"& " ORDER BY iss_key ASC"
|
| 12 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
|
13 |
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
|
| 13 |
retVal = rsTemp.RecordCount
|
14 |
retVal = rsTemp.RecordCount
|
| 14 |
|
15 |
|
| 15 |
' Insert into Dictionary
|
16 |
' Insert into clean Dictionary
|
| - |
|
17 |
issueInfo.RemoveAll
|
| 16 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
18 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
| 17 |
jkey = rsTemp("iss_key")
|
19 |
jkey = rsTemp("iss_key")
|
| 18 |
issueInfo.Add jkey, CreateObject( "Scripting.Dictionary" )
|
20 |
issueInfo.Add jkey, CreateObject( "Scripting.Dictionary" )
|
| 19 |
rsTemp.MoveNext
|
21 |
rsTemp.MoveNext
|
| 20 |
WEnd
|
22 |
WEnd
|
| Line 23... |
Line 25... |
| 23 |
Set rsTemp = nothing
|
25 |
Set rsTemp = nothing
|
| 24 |
End Sub
|
26 |
End Sub
|
| 25 |
'-------------------------------------------------
|
27 |
'-------------------------------------------------
|
| 26 |
' Function: getJiraIssueDetails
|
28 |
' Function: getJiraIssueDetails
|
| 27 |
' Description: Extract Issue details from Jira
|
29 |
' Description: Extract Issue details from Jira
|
| 28 |
' Args: NNpv_id - PV_ID to process
|
30 |
' Args: NNpv_id - PV_ID List to process (Comma sep)
|
| 29 |
' issueInfo - Scripting Dictionary to populate
|
31 |
' issueInfo - Scripting Dictionary to populate
|
| - |
|
32 |
' Will be cleared before use
|
| 30 |
' mode - 0: All Issues 1: Only Resolved
|
33 |
' mode - 0: All Issues 1: Only Resolved
|
| 31 |
'
|
34 |
'
|
| 32 |
Sub getJiraIssueDetails(NNpv_id,issueInfo,mode)
|
35 |
Sub getJiraIssueDetails(NNpv_id,issueInfo,mode)
|
| 33 |
Dim objXML, qry, post, iJSON, dJSON, oJSON, this, jkey, fields, data , resolution, el
|
36 |
Dim objXML, qry, post, iJSON, dJSON, oJSON, this, jkey, fields, data , resolution, el
|
| 34 |
Dim dumpOutput, dumpInput
|
37 |
Dim dumpOutput, dumpInput
|