Subversion Repositories DevTools

                While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))

                    NewTextFile.WriteLine("<tr>")

                    NewTextFile.WriteLine("<td nowrap class='form_item'>"&rsCQ("project")&"-"&rsCQ("iss_num")&"</td>")

                    NewTextFile.WriteLine("<td class='form_item'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</td>")

                    NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("issue_type")&"</td>")

                    NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("priority")&"</td>")

                    NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("Status")&"</td>")

                    NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("RESOLUTION")&"</td>")

                    NewTextFile.WriteLine("</tr>")

                    rsCQ.MoveNext

        sqlstrC.Close()

        Set sqlstrC = Nothing

'----------------------------------------------------------------------------------------------------------------------------------------

' Function returns the number of imported jira issues

' and builds a string suitable for querying the jira issues database

Function Get_JIRA_Package_Issues ( NNpv_id, SSsql )

   Dim rsTemp, sqlstr, JIRAIss, retVal, joiner

   JIRAIss = ""

   joiner = ""

   sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& NNpv_id

   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))

   retVal = rsTemp.RecordCount

    if retVal > 0 then

       ' Convert the Jira Issue of the form (PRJ-NNNN) into parts of an SQL expression

       ' that looks like (PRJ = match AND NNNN = match

       '

       While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

          dim bits

          bits = Split( rsTemp("iss_key"), "-" ,2)

          JIRAIss = JIRAIss & joiner & "(P.pkey = '" & bits(0) & "' AND I.issuenum = " & bits(1) & ")"

          joiner = " OR "

          rsTemp.MoveNext

       WEnd

       ' If there is no resolution for an issue, then it will not be picked up by this query

       SSsql = "SELECT P.pkey AS project, I.issuenum AS iss_num, I.summary, ISS.pname AS Status,  IT.pname as issue_type, PR.pname as Priority, R.PNAME as RESOLUTION"&_

               " FROM jiraissue I, issuestatus ISS, issuetype IT, resolution R, priority PR, project P "&_

               " WHERE (" & JIRAIss & ")"&_

               " AND I.issuestatus = ISS.ID "&_

               " AND I.RESOLUTION = R.ID "&_

               " AND IT.ID = I.issuetype "&_

               " AND PR.ID = I.PRIORITY " &_

               " AND P.ID  = I.project"

   End If

   rsTemp.Close()

   Set rsTemp = nothing

   Get_JIRA_Package_Issues = retVal

End Function

'----------------------------------------------------------------------------------------------------------------------------------------

Function  Get_JIRA_Issues ( SSsql, OOrsCQ )

   If OOrsCQ.State = 1 Then

      OOrsCQ.Close()

   End If

   On Error Resume Next

   OOrsCQ.ActiveConnection = JIRA_conn

   OOrsCQ.Source = SSsql

   OOrsCQ.CursorType = 0

   OOrsCQ.CursorLocation = 3

   OOrsCQ.LockType = 3

   OOrsCQ.Open()

   Get_JIRA_Issues = Err.Number

End Function