Subversion Repositories DevTools

Rev

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

Rev 3881 Rev 3974
Line 94... Line 94...
94 
End Function
 94 
End Function
95 
'----------------------------------------------------------------------------------------------------------------------------------------
 95 
'----------------------------------------------------------------------------------------------------------------------------------------
96 
' Function returns the number of imported clearquest issues
 96 
' Function returns the number of imported clearquest issues
97 
' and builds a string suitable for querying the clearquest issues database
 97 
' and builds a string suitable for querying the clearquest issues database
98 
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
 98 
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
99 
   Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss, retVal
 99 
   Dim rsTemp, sqlstr, DEVIiss, retVal
100 
 
 100 
 
101 
   If IsObject(DDfixedIss) Then
 101 
   If IsObject(DDfixedIss) Then
102 
      ' Find this package issues
 102 
      ' Find this package issues
103 
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
 103 
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
104 
   Else
 104 
   Else
Line 110... Line 110...
110 
 
 110 
 
111 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
 111 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
112 
   retVal = rsTemp.RecordCount
 112 
   retVal = rsTemp.RecordCount
113 
 
 113 
 
114 
   DEVIiss  = "-1"
 114 
   DEVIiss  = "-1"
115 
   TDSEiss  = "-1"
 - 
 
116 
   VT5DMiss = "-1"
 - 
 
117 
   VTSUPiss = "-1"
 - 
 
118 
 
 115 
 
119 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 116 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
120 
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 117 
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
121 
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
 118 
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
122 
 
 - 
 
123 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 - 
 
124 
         TDSEiss = TDSEiss &","& rsTemp("iss_id")
 - 
 
125 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 - 
 
126 
         VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
 - 
 
127 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
 - 
 
128 
         VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
 - 
 
129 
 
 - 
 
130 
      End If
 119 
      End If
131 
 
 120 
 
132 
      If IsObject(DDfixedIss) Then
 121 
      If IsObject(DDfixedIss) Then
133 
         ' Store only Fixed Issues
 122 
         ' Store only Fixed Issues
134 
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) AND _
 123 
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) AND _
Line 145... Line 134...
145 
   WEnd
 134 
   WEnd
146 
 
 135 
 
147 
   ' Construct SQL statement for CQ database
 136 
   ' Construct SQL statement for CQ database
148 
   SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
 137 
   SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
149 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 138 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
150 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 - 
 
151 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 - 
 
152 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
 - 
 
153 
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 139 
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
154 
   SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 - 
 
155 
   SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
 - 
 
156 
   SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
 - 
 
157 
 
 140 
 
158 
   rsTemp.Close()
 141 
   rsTemp.Close()
159 
   Set rsTemp = nothing
 142 
   Set rsTemp = nothing
160 
 
 143 
 
161 
   Get_Package_Issues = retVal
 144 
   Get_Package_Issues = retVal
Line 1559... Line 1542...
1559 
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
 1542 
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1560 
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
 1543 
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1561 
                                    <tr>
 1544 
                                    <tr>
1562 
                                       <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
 1545 
                                       <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1563 
                                       <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
 1546 
                                       <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
1564 
                                       <td bgcolor=#f5f5f5 class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
 1547 
                                       <td bgcolor=#f5f5f5 class="form_item">
- 
 
 1548 
                                            <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
- 
 
 1549 
                                                DEVI
- 
 
 1550 
                                            <%Else%>
- 
 
 1551 
                                                UNKNOWN
- 
 
 1552 
                                            <%End If%></td>
1565 
                                       <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
 1553 
                                       <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1566 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
 1554 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1567 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
 1555 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
1568 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("Status")%></td>
 1556 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("Status")%></td>
1569 
                                       <%If sectionIsEditable Then%>
 1557 
                                       <%If sectionIsEditable Then%>
Line 1753... Line 1741...
1753 
                                 </a>
 1741 
                                 </a>
1754 
                              </td>
 1742 
                              </td>
1755 
                              <td bgcolor=#f5f5f5 class="form_item">
 1743 
                              <td bgcolor=#f5f5f5 class="form_item">
1756 
                                 <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
 1744 
                                 <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1757 
                                    DEVI
 1745 
                                    DEVI
1758 
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
 - 
 
1759 
                                    TDSE
 - 
 
1760 
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
 - 
 
1761 
                                    VT5DM
 - 
 
1762 
                                 <%Else%>
 1746 
                                 <%Else%>
1763 
                                    VTSUP
 1747 
                                    UNKNOWN
1764 
                                 <%End If%>
 1748 
                                 <%End If%>
1765 
                              </td>
 1749 
                              </td>
1766 
                              <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
 1750 
                              <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1767 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
 1751 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1768 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
 1752 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
Line 1873... Line 1857...
1873 
                                    </a>
 1857 
                                    </a>
1874 
                                 </td>
 1858 
                                 </td>
1875 
                                 <td bgcolor=#f5f5f5 class="form_item">
 1859 
                                 <td bgcolor=#f5f5f5 class="form_item">
1876 
                                    <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
 1860 
                                    <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1877 
                                       DEVI
 1861 
                                       DEVI
1878 
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
 - 
 
1879 
                                       TDSE
 - 
 
1880 
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
 - 
 
1881 
                                       VT5DM
 - 
 
1882 
                                    <%Else%>
 1862 
                                    <%Else%>
1883 
                                       VTSUP
 1863 
                                       UNKNWOWN
1884 
                                    <%End If%>
 1864 
                                    <%End If%>
1885 
                                 </td>
 1865 
                                 </td>
1886 
                                 <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
 1866 
                                 <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1887 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
 1867 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1888 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
 1868 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
Line 2033... Line 2013...
2033 
                                 <%Else%>
 2013 
                                 <%Else%>
2034 
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
 2014 
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
2035 
                                 <%End If%>
 2015 
                                 <%End If%>
2036 
                              </td>
 2016 
                              </td>
2037 
                              <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=asDepIss( iss_db_id, enumLoc_iss_db )%>&iss_id=<%=asDepIss( iss_db_id, enumLoc_iss_id )%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td>
 2017 
                              <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=asDepIss( iss_db_id, enumLoc_iss_db )%>&iss_id=<%=asDepIss( iss_db_id, enumLoc_iss_id )%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td>
- 
 
 2018 
                              <td bgcolor=#f5f5f5 class="form_item">
2038 
                              <td bgcolor=#f5f5f5 class="form_item"><%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
 2019 
                                    <%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>
- 
 
 2020 
                                        DEVI
- 
 
 2021 
                                    <%Else%>
- 
 
 2022 
                                        UNKNOWN
- 
 
 2023 
                                    <%End If%></td>
2039 
                              <td bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
 2024 
                              <td bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
2040 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
 2025 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
2041 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
 2026 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
2042 
                           </tr>
 2027 
                           </tr>
2043 
                        <%End If%>
 2028 
                        <%End If%>