Subversion Repositories DevTools

Rev

Rev 5860 | Rev 5952 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5860 Rev 5861
Line 802... Line 802...
802 
            <tr>
 802 
            <tr>
803 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 803 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
804 
               <td width="1%" align="right" nowrap class="form_field" valign="top">Issue System</td>
 804 
               <td width="1%" align="right" nowrap class="form_field" valign="top">Issue System</td>
805 
               <td width="100%">
 805 
               <td width="100%">
806 
                  <select name="FRiss_db" class="form_item">
 806 
                  <select name="FRiss_db" class="form_item">
807 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>ClearQuest DEVI</option>
 - 
 
808 
                     <option value="<%=enumJIRA_DEVI_ID%>" <%If CDbl(NNiss_db) = enumJIRA_DEVI_ID Then%>selected<%End If%>>Jira</option>
 807 
                     <option value="<%=enumJIRA_DEVI_ID%>" <%If CDbl(NNiss_db) = enumJIRA_DEVI_ID Then%>selected<%End If%>>Jira</option>
- 
 
 808 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>ClearQuest DEVI</option>
809 
                  </select>
 809 
                  </select>
810 
               </td>
 810 
               </td>
811 
            </tr>
 811 
            </tr>
812 
            <tr>
 812 
            <tr>
813 
               <td nowrap class="form_field">&nbsp;</td>
 813 
               <td nowrap class="form_field">&nbsp;</td>
Line 852... Line 852...
852 
      <!-- PRINT, SAVE, ETC. END -------->
 852 
      <!-- PRINT, SAVE, ETC. END -------->
853 
      <%
 853 
      <%
854 
   End If
 854 
   End If
855 
 
 855 
 
856 
End Sub
 856 
End Sub
- 
 
 857 
'-------------------------------------------------
- 
 
 858 
' Function:     Where_Are_Bugs_Located_Jira
- 
 
 859 
' Description:  Body of the report for Jira Issues
857 
 
 860 
'
858 
Sub Where_Are_Bugs_Located_Jira ( SSsection, NNiss_db, SSiss_num_list )
 861 
Sub Where_Are_Bugs_Located_Jira ( SSsection, NNiss_db, SSiss_num_list )
859 
    Dim Query_String, rsRep
 862 
    Dim Query_String, rsRep
860 
    Dim SSsql, issARR, num_item, issNumDict, rsCQ, recCount, maxRecCount
 863 
    Dim SSsql, issARR, num_item, issNumDict, rsCQ, recCount, maxRecCount
861 
    Set issNumDict = CreateObject("Scripting.Dictionary")
 864 
    Set issNumDict = CreateObject("Scripting.Dictionary")
862 
 
 865 
 
Line 905... Line 908...
905 
 
 908 
 
906 
    %>
 909 
    %>
907 
    <table width="100%" border="0" cellspacing="0" cellpadding="2">
 910 
    <table width="100%" border="0" cellspacing="0" cellpadding="2">
908 
     <tr>
 911 
     <tr>
909 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
 912 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
910 
        <td width="1%" nowrap class="body_colb">Fixed</td>
 913 
        <td width="1%" nowrap class="body_colb">&nbsp;&nbsp;&nbsp;</td>
911 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 914 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
912 
        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
 915 
        <td width="1%" nowrap class="body_colb">Currently used Release&nbsp;&nbsp;&nbsp;</td>
913 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 916 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
914 
     </tr>
 917 
     </tr>
915 
     <tr>
 918 
     <tr>
916 
     <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 919 
     <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
917 
     </tr>
 920 
     </tr>
Line 930... Line 933...
930 
 
 933 
 
931 
     While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 934 
     While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
932 
        ' -------- GROUP BY ISS_KEY -----------------
 935 
        ' -------- GROUP BY ISS_KEY -----------------
933 
        If Cstr(currIss_id) <> Cstr(rsRep("iss_key")) Then
 936 
        If Cstr(currIss_id) <> Cstr(rsRep("iss_key")) Then
934 
           %>
 937 
           %>
- 
 
 938 
           <% ' -- line between issues %>
935 
           <tr>
 939 
           <tr>
936 
              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 940 
              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
937 
              <td></td>
 941 
              <td></td>
938 
           </tr>
 942 
           </tr>
- 
 
 943 
           <% ' -- Start of a new issue %>
939 
           <tr>
 944 
           <tr>
940 
              <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>
 945 
              <td nowrap valign="top">
- 
 
 946 
                    <a href="<%=Application("JIRA_URL") & "/browse/" & rsRep("iss_key")%>" class="txt_linked"  target="_blank" title="Browse Jira Issue">
- 
 
 947 
                        <img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle">
941 
              <td colspan='5' class="body_scol"></td>
 948 
                    <%=rsRep("iss_key")%></a>
942 
           </tr>
 949 
              </td>
943 
           <%
 950 
           <%
944 
           currIss_id = Cstr(rsRep("iss_key"))
 951 
           currIss_id = Cstr(rsRep("iss_key"))
- 
 
 952 
        Else %>
- 
 
 953 
           <td nowrap class="body_row" valign="top"></td>
945 
        End If
 954 
        <% End If
946 
        ' -------- END GROUP ------------------------
 955 
        ' -------- END GROUP ------------------------
947 
        %>
 956 
        %>
948 
        <tr>
 957 
           <td align="left"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
949 
           <td nowrap class="body_row" valign="top"></td>
 958 
           <td nowrap align="left" class="body_row" valign="top">
950 
              <td align="left"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
 959 
              <a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>#ISSUES" class="txt_linked" target="_blank"  title="Open version in new window">
951 
           <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>
 960 
                <%=rsRep("pkg_name") &" "& rsRep("pkg_version")%>
- 
 
 961 
              </a>
- 
 
 962 
           </td>
- 
 
 963 
           <td>
952 
           <%
 964 
           <%
953 
           Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_content rc, release_tags rt where rc.rtag_id = rt.rtag_id and "&_
 965 
           Query_String = "select * from release_content rc, release_tags rt" &_
954 
                                      " pv_id ="&rsRep("pv_id"), 0 )
 966 
                          " where rc.rtag_id = rt.rtag_id and pv_id = "&rsRep("pv_id")
955 
 
 - 
 
- 
 
 967 
           Set rsQry = OraDatabase.DbCreateDynaset( Query_String , 0 )
956 
           While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 968 
           If rsQry.RecordCount <> 0 Then
957 
              %>
 969 
               %>
- 
 
 970 
               <table width="100%" border="0" cellspacing="0" cellpadding="2">
958 
              <tr>
 971 
               <%
959 
                 <td nowrap align="left" class="body_row" valign="top"></td>
 972 
               While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
- 
 
 973 
                  %>
- 
 
 974 
                  <tr>
960 
                 <td nowrap align="left" class="body_row" valign="top"></td>
 975 
                     <td nowrap align="left" class="body_row" valign="top">
961 
                 <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>
 976 
                        <a href="fixed_issues.asp?rtag_id=<%=rsQry("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>#ISSUES" class="txt_linked" target="_blank">
- 
 
 977 
                            <%=rsQry("rtag_name")%>
- 
 
 978 
                        </a>
- 
 
 979 
                     </td>
962 
              </tr>
 980 
                  </tr>
963 
              <%
 981 
                  <%
964 
              rsQry.MoveNext()
 982 
                  rsQry.MoveNext()
965 
           WEnd
 983 
               WEnd
- 
 
 984 
                %>
- 
 
 985 
                </table>
- 
 
 986 
                <%
- 
 
 987 
           End If
966 
           rsQry.Close()
 988 
           rsQry.Close()
967 
           Set rsQry = Nothing
 989 
           Set rsQry = Nothing
968 
           %>
 990 
           %>
969 
           <td nowrap align="left" class="body_row" valign="top"></td>
 991 
           </td>
970 
           <td nowrap align="left" class="body_row" valign="top"></td>
 992 
           <td nowrap align="left" class="body_row" valign="top"></td>
971 
        </tr>
 993 
        </tr>
972 
        <%  rsRep.MoveNext
 994 
        <%  rsRep.MoveNext
973 
     WEnd
 995 
     WEnd
974 
     %>
 996 
     %>
Line 979... Line 1001...
979 
    <%
 1001 
    <%
980 
    rsRep.Close
 1002 
    rsRep.Close
981 
    Set rsRep = nothing
 1003 
    Set rsRep = nothing
982 
End Sub
 1004 
End Sub
983 
 
 1005 
 
- 
 
 1006 
'-------------------------------------------------
- 
 
 1007 
' Function:     Where_Are_Bugs_Located_ClearQuest
- 
 
 1008 
' Description:  Body of the report for ClearQuest Issues
- 
 
 1009 
'
984 
Sub Where_Are_Bugs_Located_ClearQuest ( SSsection, NNiss_db, SSiss_num_list )
 1010 
Sub Where_Are_Bugs_Located_ClearQuest ( SSsection, NNiss_db, SSiss_num_list )
985 
    Dim Query_String, rsRep
 1011 
    Dim Query_String, rsRep
986 
    Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
 1012 
    Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
987 
    Set issNumDict = CreateObject("Scripting.Dictionary")
 1013 
    Set issNumDict = CreateObject("Scripting.Dictionary")
988 
 
 1014 
 
Line 1062... Line 1088...
1062 
           <tr>
 1088 
           <tr>
1063 
              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 1089 
              <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1064 
              <td></td>
 1090 
              <td></td>
1065 
           </tr>
 1091 
           </tr>
1066 
           <tr>
 1092 
           <tr>
- 
 
 1093 
              <td nowrap>
- 
 
 1094 
                    <a href="javascript:;" onClick="MM_openVixIFrame('_wform_issues_details.asp?iss_db=<%=NNiss_db%>&iss_id=<%= rsRep("iss_id")%>','Issue Details','resizable=yes,width=580,height=500')" class="txt_linked">
1067 
              <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>
 1095 
                        <img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" title="See issue details.">
- 
 
 1096 
                    <%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%></a>
- 
 
 1097 
              </td>
- 
 
 1098 
 
1068 
              <td colspan='5' class="body_scol"></td>
 1099 
              <td colspan='5' class="body_scol"></td>
1069 
           </tr>
 1100 
           </tr>
1070 
           <%
 1101 
           <%
1071 
           currIss_id = Cstr(rsRep("iss_id"))
 1102 
           currIss_id = Cstr(rsRep("iss_id"))
1072 
        End If
 1103 
        End If