Subversion Repositories DevTools

Rev

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

Rev 6324 Rev 6370
Line 1553... Line 1553...
1553
                     <strong>Build Inclusion</strong>
1553
                     <strong>Build Inclusion</strong>
1554
                     <%=Quick_Help ( "ripple_build" )%>
1554
                     <%=Quick_Help ( "ripple_build" )%>
1555
                  </td>
1555
                  </td>
1556
                  <%If Request("rtag_id") <> "" Then
1556
                  <%If Request("rtag_id") <> "" Then
1557
                     Dim rsQryRipple
1557
                     Dim rsQryRipple
1558
                     Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
1558
                     Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT p.PKG_NAME, pv.PV_OVERVIEW, pv.PKG_ID, dnr.* FROM DO_NOT_RIPPLE dnr, PACKAGE_VERSIONS pv, PACKAGES p WHERE dnr.RTAG_ID ="& Request("rtag_id") &"AND dnr.PV_ID ="&Request("pv_id") &" AND  pv.pv_id(+) = dnr.ROOT_PV_ID AND p.PKG_ID(+) = pv.PKG_ID", cint(0))
1559
                        If rsQryRipple.RecordCount = 0  Then %>
1559
                        If rsQryRipple.RecordCount <> 0  Then
-
 
1560
                        Dim CauseText
-
 
1561
                        Dim shref_base
-
 
1562
                        Dim rowData
-
 
1563
                        shref_base = "http://" & archive_server & "/devl/abtlog/"
-
 
1564
                        If (IsNull(rsQryRipple("root_file")) AND IsNull(rsQryRipple("root_cause"))) Then
-
 
1565
                                If isNull(rsQryRipple("root_pv_id")) Then
-
 
1566
                                    CauseText = "Manually Excluded"
-
 
1567
                                Else
1560
                        <td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
1568
                                    CauseText = "Indirectly excluded by <a class=""txt_linked"" title='"&rsQryRipple("PV_OVERVIEW")&"' href=fixed_issues.asp?pv_id="& rsQryRipple("root_pv_id") & "&rtag_id="&rsQryRipple("rtag_id") & ">" & rsQryRipple("pkg_name") & "</a>"
-
 
1569
                                End If
-
 
1570
 
-
 
1571
                            ElseIf IsNull(rsQryRipple("root_file")) Then
-
 
1572
                               CauseText = rsQryRipple("root_cause")
-
 
1573
 
-
 
1574
                            Else
-
 
1575
                                CauseText = "<a class=""txt_linked"" title=""" & rsQryRipple("root_file") &_
-
 
1576
                                          " Log file may have expired."" " &_
-
 
1577
                                          "href=""" & shref_base & rsQryRipple("root_file") & """>" &_
-
 
1578
                                          "Build Failure Log File</a>"
-
 
1579
                            End If
-
 
1580
                            %>
-
 
1581
                        <td bgcolor=#f5f5f5 class="sublbox_txt">No.&nbsp;<%=CauseText%>
-
 
1582
                        </td>
1561
                     <%Else%>
1583
                     <%Else%>
1562
                        <td bgcolor=#f5f5f5 class="sublbox_txt">No</td>
1584
                        <td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
1563
                     <%End If%>
1585
                     <%End If%>
1564
                     <%rsQryRipple.Close()
1586
                     <%rsQryRipple.Close()
1565
                     Set rsQryRipple = nothing
1587
                     Set rsQryRipple = nothing
1566
                  End If%>
1588
                  End If%>
1567
               </tr>
1589
               </tr>