Subversion Repositories DevTools

Rev

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

Rev 4237 Rev 4254
Line 3... Line 3...
3
'|                                                   |
3
'|                                                   |
4
'|                 RELEASE NOTES                     |
4
'|                 RELEASE NOTES                     |
5
'|                                                   |
5
'|                                                   |
6
'=====================================================
6
'=====================================================
7
%>
7
%>
-
 
8
<!-- Required to support jiraIssues.vbs -->
-
 
9
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT> 
-
 
10
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/base64encode.vbs"></SCRIPT> 
-
 
11
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/jiraIssues.vbs"></SCRIPT> 
8
<%
12
<%
9
'------------ Variable Definition -------------
13
'------------ Variable Definition -------------
10
Dim rsCQ
14
Dim rsCQ
11
Dim rsDepIss
15
Dim rsDepIss
12
Dim SQLstr
16
Dim SQLstr
Line 143... Line 147...
143
 
147
 
144
   Get_Package_Issues = retVal
148
   Get_Package_Issues = retVal
145
 
149
 
146
End Function
150
End Function
147
'----------------------------------------------------------------------------------------------------------------------------------------
151
'----------------------------------------------------------------------------------------------------------------------------------------
148
' Function returns the number of imported jira issues
-
 
149
' and builds a string suitable for querying the jira issues database
-
 
150
Function Get_JIRA_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
-
 
151
   Dim rsTemp, sqlstr, JIRAIss, retVal, joiner
-
 
152
 
-
 
153
   JIRAIss = ""
-
 
154
   joiner = ""
-
 
155
   sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& NNpv_id
-
 
156
 
-
 
157
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
-
 
158
   retVal = rsTemp.RecordCount
-
 
159
 
-
 
160
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
-
 
161
      dim bits
-
 
162
      bits = Split( rsTemp("iss_key"), "-" ,2)
-
 
163
      If UBound(bits) > 0 Then
-
 
164
        JIRAIss = JIRAIss & joiner & "(P.pkey = '" & bits(0) & "' AND I.issuenum = " & bits(1) & ")"
-
 
165
        joiner = " OR "
-
 
166
      End If
-
 
167
      rsTemp.MoveNext
-
 
168
   WEnd
-
 
169
 
-
 
170
   SSsql = "SELECT P.pkey AS project, I.issuenum AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
-
 
171
           " FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR, project P "&_
-
 
172
           " WHERE (" & JIRAIss & ")"&_
-
 
173
           " AND I.issuestatus = ISS.ID "&_
-
 
174
           " AND IT.ID = I.issuetype "&_
-
 
175
           " AND PR.ID = I.PRIORITY " &_
-
 
176
           " AND P.ID  = I.project"
-
 
177
 
-
 
178
'Response.Write("<br>Get_JIRA_Package_Issues" & SSsql )
-
 
179
 
-
 
180
   rsTemp.Close()
-
 
181
   Set rsTemp = nothing
-
 
182
 
-
 
183
   Get_JIRA_Package_Issues = retVal
-
 
184
 
-
 
185
End Function
-
 
186
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
187
Sub LastPvId (PvId)
152
Sub LastPvId (PvId)
188
   Dim sqlstr
153
   Dim sqlstr
189
 
154
 
190
   sqlstr = "SELECT pv_id, pkg_version, comments, last_pv_id FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId
155
   sqlstr = "SELECT pv_id, pkg_version, comments, last_pv_id FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId
191
 
156
 
192
   Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
157
   Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
193
 
158
 
194
End Sub
159
End Sub
195
'----------------------------------------------------------------------------------------------------------------------------------------
160
'----------------------------------------------------------------------------------------------------------------------------------------
196
Function  Get_JIRA_Issues ( SSsql, OOrsCQ )
-
 
197
   If OOrsCQ.State = 1 Then
-
 
198
      OOrsCQ.Close()
-
 
199
   End If
-
 
200
 
-
 
201
 
-
 
202
 
-
 
203
   On Error Resume Next
-
 
204
   OOrsCQ.ActiveConnection = JIRA_conn
-
 
205
   OOrsCQ.Source = SSsql
-
 
206
   OOrsCQ.CursorType = 0
-
 
207
   OOrsCQ.CursorLocation = 3
-
 
208
   OOrsCQ.LockType = 3
-
 
209
   OOrsCQ.Open()
-
 
210
 
-
 
211
 
-
 
212
   Get_JIRA_Issues = Err.Number
-
 
213
 
-
 
214
End Function
-
 
215
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
216
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
161
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
217
   If OOrsCQ.State = 1 Then
162
   If OOrsCQ.State = 1 Then
218
      OOrsCQ.Close()
163
      OOrsCQ.Close()
219
   End If
164
   End If
220
 
165
 
Line 270... Line 215...
270
   WEnd
215
   WEnd
271
 
216
 
272
   OOrsCQ.Close()
217
   OOrsCQ.Close()
273
End Function
218
End Function
274
'----------------------------------------------------------------------------------------------------------------------------------------
219
'----------------------------------------------------------------------------------------------------------------------------------------
275
Function FormatPath ( SSpath )
-
 
276
 
-
 
277
   If (SSpath = "") Then
-
 
278
      FormatPath = ""
-
 
279
      Exit Function
-
 
280
   End If
-
 
281
 
-
 
282
   If (InStr(1, LCase(SSpath), "http") = 1) OR (InStr(1, LCase(SSpath), "www") = 1) Then
-
 
283
      ' Source path is URL
-
 
284
      FormatPath = "<a href='"& SSpath &"' class='txt_linked'>"& SSpath &"</a>"
-
 
285
   Else
-
 
286
      FormatPath = SSpath
-
 
287
   End If
-
 
288
 
-
 
289
End Function
-
 
290
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
291
Sub Group_By ( rsG, styleG, currG )
220
Sub Group_By ( rsG, styleG, currG )
292
   If rsG = currG Then Exit Sub
221
   If rsG = currG Then Exit Sub
293
   Response.write styleG
222
   Response.write styleG
294
   'currG = rsG
223
   'currG = rsG
295
End Sub
224
End Sub
Line 542... Line 471...
542
        Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
471
        Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
543
   On Error Goto 0
472
   On Error Goto 0
544
   OraDatabase.Parameters.Remove "PV_ID"
473
   OraDatabase.Parameters.Remove "PV_ID"
545
   OraDatabase.Parameters.Remove "RETURN_CODE"
474
   OraDatabase.Parameters.Remove "RETURN_CODE"
546
End Function
475
End Function
547
 
-
 
548
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
549
 
-
 
550
 
-
 
551
'----------------------------------------------------------------------------------------------------------------------------------------
476
'----------------------------------------------------------------------------------------------------------------------------------------
552
%>
477
%>
553
<%
478
<%
554
'------------------ MAIN LINE --------------------
479
'------------------ MAIN LINE --------------------
555
'-------------------------------------------------
480
'-------------------------------------------------
Line 1343... Line 1268...
1343
   <%ElseIf pkgInfoHash.Item ("build_type") = "Y" Then%>
1268
   <%ElseIf pkgInfoHash.Item ("build_type") = "Y" Then%>
1344
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1269
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1345
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1270
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1346
            <tr>
1271
            <tr>
1347
               <td bgcolor=#f5f5f5>
1272
               <td bgcolor=#f5f5f5>
1348
                    <span class='sublbox_txt'>Legacy Package. Build and Change Type not specified</span>
1273
                    <span class='sublbox_txt'>Ripple Built</span>
1349
               </td>
1274
               </td>
1350
            </tr>
1275
            </tr>
1351
         </table>
1276
         </table>
1352
   <%Else%>
1277
   <%Else%>
1353
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1278
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
Line 1648... Line 1573...
1648
         Issues
1573
         Issues
1649
      </legend>
1574
      </legend>
1650
      <p class="body_colb"><a name="ISSUES"></a></p>
1575
      <p class="body_colb"><a name="ISSUES"></a></p>
1651
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1576
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1652
         <tr>
1577
         <tr>
-
 
1578
            <!-- Jira Issues -->
1653
            <td valign="top" class="body_colb">JIRA Issues</td>
1579
            <td valign="top" class="body_colb">JIRA Issues</td>
1654
            <td align="right" valign="top">
1580
            <td align="right" valign="top">
1655
               <%If pageIsEditable Then%>
1581
               <%If pageIsEditable Then%>
1656
                  <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_jira_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">
1582
                  <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_jira_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">
1657
                     Import JIRA issues
1583
                     Import JIRA issues
1658
                     <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1584
                     <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1659
                  </a>
1585
                  </a>
1660
               <%End If%>
1586
               <%End If%>
1661
            </td>
1587
            </td>
1662
 
1588
 
1663
            <%retVal = Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
-
 
1664
            If (retVal > 0) Then
-
 
1665
               retVal = Get_JIRA_Issues ( SQLstr, rsCQ )
-
 
1666
               If (retVal = 0 AND rsCQ.RecordCount > 0) Then%>
-
 
1667
 
-
 
1668
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
-
 
1669
                     <tr>
1589
            <%
1670
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field" align="center">Fixed</td>
-
 
1671
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
-
 
1672
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
-
 
1673
                        <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
-
 
1674
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
-
 
1675
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Priority</td>
-
 
1676
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Status</td>
-
 
1677
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Note</td>
-
 
1678
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">&nbsp;</td>
-
 
1679
                     </tr>
-
 
1680
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
-
 
1681
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))
-
 
1682
                            dim jiraIssue
-
 
1683
                            jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")
-
 
1684
                            %>
1590
            Dim issueInfo, el, key
1685
                           <tr>
-
 
1686
                              <%If rsCQ("resolution") = 1 Then %>
1591
            Set issueInfo = CreateObject( "Scripting.Dictionary" )
1687
                                 <td align="center" nowrap bgcolor=#e4e9ec>
-
 
1688
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
-
 
1689
                                 </td>
-
 
1690
                              <%Else%>
-
 
1691
                                 <td align="center" nowrap bgcolor=#e4e9ec></td>
-
 
1692
                              <%End If%>
-
 
1693
                              <td bgcolor=#f5f5f5 nowrap class="form_item">
-
 
1694
                                 <a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank" class="txt_linked"><%=jiraIssue%></a>
-
 
1695
                              </td>
-
 
1696
                              <td bgcolor=#f5f5f5 class="form_item">JIRA</td>
-
 
1697
                              <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
-
 
1698
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issuetype")%></td>
-
 
1699
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
-
 
1700
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("state")%></td>
-
 
1701
                              <td nowrap bgcolor=#f5f5f5 class="form_item"></td>
-
 
1702
                              <%If NOT pageIsEditable Then%>
1592
            Call getJiraIssueDetails(parPv_id,issueInfo, 0)
1703
                                 <td align="center" bgcolor=#f5f5f5 class="form_item">
-
 
1704
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
-
 
1705
                                 </td>
-
 
1706
                              <%Else%>
-
 
1707
                                 <td align="center" bgcolor=#f5f5f5 class="form_item">
-
 
1708
                                    <a href="_remove_jira_issue.asp?iss_link=<%=jiraIssue%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
-
 
1709
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
-
 
1710
                                    </a>
1593
            If issueInfo.Count > 0 Then
1711
                                 </td>
-
 
1712
                              <%End If%>
-
 
1713
                           </tr>
-
 
1714
                           <%rsCQ.MoveNext
-
 
1715
                        WEnd
-
 
1716
                        rsCQ.Close()%>
-
 
1717
                     <%Else%>
1594
            %>
1718
                        <tr>
-
 
1719
                           <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
-
 
1720
                           <td bgcolor=#f5f5f5 nowrap></td>
-
 
1721
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1722
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1723
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1724
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1725
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1726
                           <td bgcolor=#f5f5f5 class="form_item"></td>
-
 
1727
                           <td align="center" bgcolor=#f5f5f5 class="form_item"></td>
-
 
1728
                        </tr>
-
 
1729
                     <%End If%>
-
 
1730
 
1595
 
-
 
1596
            <table width="100%" border="0" cellspacing="1" cellpadding="3">
-
 
1597
                <tr>
-
 
1598
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field" align="center">Fixed</td>
-
 
1599
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
-
 
1600
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
-
 
1601
                   <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
-
 
1602
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
-
 
1603
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Priority</td>
-
 
1604
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Status</td>
-
 
1605
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Note</td>
-
 
1606
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">&nbsp;</td>
-
 
1607
                </tr>
-
 
1608
                <%
-
 
1609
                For Each key In issueInfo
-
 
1610
                Set el = issueInfo.item(key)
-
 
1611
                %>
-
 
1612
                <tr>
-
 
1613
                  <%If el.Exists("resolution") Then %>
-
 
1614
                     <td align="center" nowrap bgcolor=#e4e9ec>
-
 
1615
                        <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
-
 
1616
                     </td>
1731
                  </table>
1617
                  <%Else%>
-
 
1618
                     <td align="center" nowrap bgcolor=#e4e9ec></td>
1732
               <%End If%>
1619
                  <%End If%>
-
 
1620
                  <td bgcolor=#f5f5f5 nowrap class="form_item">
-
 
1621
                     <a href="<%=el.item("url")%>" target="_blank" class="txt_linked"><%=key%></a>
-
 
1622
                  </td>
-
 
1623
                  <td bgcolor=#f5f5f5 class="form_item"><%=el.item("type")%></td>
-
 
1624
                  <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( el.item("summary") ) )%></td>
-
 
1625
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("issuetype")%></td>
-
 
1626
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("priority")%></td>
-
 
1627
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("status")%></td>
-
 
1628
                  <td nowrap bgcolor=#f5f5f5 class="form_item"></td>
-
 
1629
                  <%If NOT pageIsEditable Then%>
-
 
1630
                     <td align="center" bgcolor=#f5f5f5 class="form_item">
-
 
1631
                        <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
-
 
1632
                     </td>
-
 
1633
                  <%Else%>
1733
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1634
                     <td align="center" bgcolor=#f5f5f5 class="form_item">
-
 
1635
                        <a href="_remove_jira_issue.asp?iss_link=<%=el.item("key")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
-
 
1636
                           <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
-
 
1637
                        </a>
-
 
1638
                     </td>
-
 
1639
                  <%End If%>
-
 
1640
               </tr>
-
 
1641
               <%
-
 
1642
               Next
-
 
1643
               Set issueInfo = nothing
-
 
1644
               %>
-
 
1645
            </table>
1734
            <%End If%>
1646
            <%End If%>
1735
 
1647
 
-
 
1648
            <!-- Fixed ClearCase Issues -->
1736
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1649
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1737
               <tr>
1650
               <tr>
1738
                  <td valign="top" class="body_colb">Fixed Issues</td>
1651
                  <td valign="top" class="body_colb">Fixed Issues</td>
1739
                  <td align="right" valign="top">
1652
                  <td align="right" valign="top">
1740
                     <%If pageIsEditable Then%>
1653
                     <%If pageIsEditable Then%>
Line 1840... Line 1753...
1840
                  </table>
1753
                  </table>
1841
               <%End If%>
1754
               <%End If%>
1842
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1755
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1843
            <%End If%>
1756
            <%End If%>
1844
 
1757
 
-
 
1758
            <!-- Outstanding ClearCase Issues -->
1845
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1759
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1846
               <tr>
1760
               <tr>
1847
                  <td valign="top" class="body_colb">Outstanding Issues</td>
1761
                  <td valign="top" class="body_colb">Outstanding Issues</td>
1848
                  <td align="right" valign="top">
1762
                  <td align="right" valign="top">
1849
                     <%If pageIsEditable Then%>
1763
                     <%If pageIsEditable Then%>