Subversion Repositories DevTools

                     <option value="<%=enumJIRA_DEVI_ID%>" <%If CDbl(NNiss_db) = enumJIRA_DEVI_ID Then%>selected<%End If%>>Jira</option>

Sub Where_Are_Bugs_Located_Jira ( SSsection, NNiss_db, SSiss_num_list )

    Dim Query_String, rsRep

    Dim SSsql, issARR, num_item, issNumDict, rsCQ, recCount, maxRecCount

    Set issNumDict = CreateObject("Scripting.Dictionary")

    '---- Find Issue numbers in JIRA  ----

     SSsql = _

     " select distinct ISS_KEY"&_

     " FROM release_manager.JIRA_ISSUES"&_

     " WHERE "

    '---- Split multiple search ----

    SSiss_num_list = Trim(SSiss_num_list)

    If InStr( SSiss_num_list, " " ) > 0 Then

     ' space separator found

     issARR = Split ( SSiss_num_list, " ")

     For Each num_item In issARR

        If num_item <> "" Then

           SSsql = SSsql & " ISS_KEY LIKE ('%"& Replace( SQLstring(num_item), "*", "%" ) & "') OR"

        End If

     Next

     SSsql = Left ( SSsql, Len(SSsql) - 2 )      ' Removes last OR

    Else

     SSsql = SSsql & " ISS_KEY LIKE ('%"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"

    End If

    Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))

    ' Get find results from CQ

    recCount = 1

    maxRecCount = 1000

    issNumDict.ADD "'-1'", "-1"      ' take care of no results

    While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))

     issNumDict.ADD "'" & Cstr(rsCQ("ISS_KEY")) & "'", "1"

     recCount = recCount + 1

     rsCQ.MoveNext

    WEnd

    rsCQ.Close

    Set rsCQ = nothing

    Query_String = ReadFile( rootPath & "queries\rep_where_are_jirabugs_located.sql" )

    Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )

    %>

    <table width="100%" border="0" cellspacing="0" cellpadding="2">

     <tr>

        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>

        <td width="1%" nowrap class="body_colb">Fixed</td>

        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>

        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>

        <td width="100%" nowrap class="body_colb">&nbsp;</td>

     </tr>

     <tr>

     <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

     </tr>

     <%

     Dim currIss_id

     currIss_id = -1

     Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

     If rsRep.RecordCount = 0 Then

        With Response

           .write "<tr>"

           .write "<td colspan='5' class='body_row'>Found 0 records</td>"

           .write "</tr>"

        End With

     End If

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

        ' -------- GROUP BY ISS_KEY -----------------

        If Cstr(currIss_id) <> Cstr(rsRep("iss_key")) Then

           %>

           <tr>

              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

              <td></td>

           </tr>

           <tr>

              <td nowrap><a href="_wform_issues_details.asp?iss_db=<%=NNiss_db%>&iss_key=<%= rsRep("iss_key")%>" class="body_scol vixIframeDialog"><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" title="See issue details."><%=rsRep("iss_key")%></a></td>

              <td colspan='5' class="body_scol"></td>

           </tr>

           <%

           currIss_id = Cstr(rsRep("iss_key"))

        End If

        ' -------- END GROUP ------------------------

        %>

        <tr>

           <td nowrap class="body_row" valign="top"></td>

              <td align="left"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>

           <td nowrap align="left" class="body_row" valign="top"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" title="Find this package."></td>

           <%

           Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_content rc, release_tags rt where rc.rtag_id = rt.rtag_id and "&_

                                      " pv_id ="&rsRep("pv_id"), 0 )

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

              %>

              <tr>

                 <td nowrap align="left" class="body_row" valign="top"></td>

                 <td nowrap align="left" class="body_row" valign="top"></td>

                 <td nowrap align="left" class="body_row" valign="top"><a href="fixed_issues.asp?rtag_id=<%=rsQry("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="txt_linked" target="_blank"><%=rsQry("rtag_name")%></a></td>

              </tr>

              <%

              rsQry.MoveNext()

           WEnd

           rsQry.Close()

           Set rsQry = Nothing

           %>

           <td nowrap align="left" class="body_row" valign="top"></td>

           <td nowrap align="left" class="body_row" valign="top"></td>

        </tr>

        <%  rsRep.MoveNext

     WEnd

     %>

     <tr>

        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

     </tr>

    </table>

    <%

    rsRep.Close

    Set rsRep = nothing

End Sub

Sub Where_Are_Bugs_Located_ClearQuest ( SSsection, NNiss_db, SSiss_num_list )

    Dim Query_String, rsRep

    Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount

    Set issNumDict = CreateObject("Scripting.Dictionary")

    '---- Find Issue numbers in ClearQuest ----

     iss_num_col = "new_num"

     SSsql = _

     " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_

     " FROM release_manager.cq_software_issue si"&_

     " WHERE "

    '---- Split multiple search ----

    SSiss_num_list = Trim(SSiss_num_list)

    If InStr( SSiss_num_list, " " ) > 0 Then

     ' space separator found

     issARR = Split ( SSiss_num_list, " ")

     For Each num_item In issARR

        If num_item <> "" Then

           SSsql = SSsql & " (si."& iss_num_col &" LIKE '%"& Replace( SQLstring(num_item), "*", "%" ) &"%') OR"

        End If

     Next

     SSsql = Left ( SSsql, Len(SSsql) - 2 )      ' Removes last OR

    Else

     SSsql = SSsql & " (si."& iss_num_col &" LIKE '%"& Replace( SQLstring(SSiss_num_list), "*", "%") &"%')"

    End If

    Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))

    ' Get find results from CQ

    recCount = 1

    maxRecCount = 1000

    issNumDict.ADD "-1", "-1"      ' take care of no results

    While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))

     issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))

     recCount = recCount + 1

     rsCQ.MoveNext

    WEnd

    rsCQ.Close

    Set rsCQ = nothing

    Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )

    Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )

    Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )

    %>

    <table width="100%" border="0" cellspacing="0" cellpadding="2">

     <tr>

        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>

        <td width="1%" nowrap class="body_colb">Fixed</td>

        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>

        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>

        <td width="100%" nowrap class="body_colb">&nbsp;</td>

     </tr>

     <tr>

     <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

     </tr>

     <%

     Dim currIss_id

     currIss_id = -1

     Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

     If rsRep.RecordCount = 0 Then

        With Response

           .write "<tr>"

           .write "<td colspan='5' class='body_row'>Found 0 records</td>"

           .write "</tr>"

        End With

     End If

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

        ' -------- GROUP BY ISS_ID -----------------

        If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then

           %>

           <tr>

              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

              <td></td>

           </tr>

           <tr>

              <td nowrap><a href="_wform_issues_details.asp?iss_db=<%=NNiss_db%>&iss_id=<%= rsRep("iss_id")%>" class="body_scol vixIframeDialog"><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" title="See issue details."><%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%></a></td>

              <td colspan='5' class="body_scol"></td>

           </tr>

           <%

           currIss_id = Cstr(rsRep("iss_id"))

        End If

        ' -------- END GROUP ------------------------

        %>

        <tr>

           <td nowrap class="body_row" valign="top"></td>

           <%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>

              <td align="left"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>

           <%Else%>

              <td align="left"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>

           <%End If%>

           <td nowrap align="left" class="body_row" valign="top"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" title="Find this package."></td>

           <%

           Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_content rc, release_tags rt where rc.rtag_id = rt.rtag_id and "&_

                                      " pv_id ="&rsRep("pv_id"), 0 )

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

              %>

              <tr>

                 <td nowrap align="left" class="body_row" valign="top"></td>

                 <td nowrap align="left" class="body_row" valign="top"></td>

                 <td nowrap align="left" class="body_row" valign="top"><a href="fixed_issues.asp?rtag_id=<%=rsQry("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="txt_linked" target="_blank"><%=rsQry("rtag_name")%></a></td>

              </tr>

              <%

              rsQry.MoveNext()

           WEnd

           rsQry.Close()

           Set rsQry = Nothing

           %>

           <td nowrap align="left" class="body_row" valign="top"><%=rsRep("notes")%></td>

           <td nowrap align="left" class="body_row" valign="top"></td>

        </tr>

        <%  rsRep.MoveNext

     WEnd

     %>

     <tr>

        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

     </tr>

    </table>

    <%

    rsRep.Close

    Set rsRep = nothing

End Sub