| Line 44... |
Line 44... |
| 44 |
%>
|
44 |
%>
|
| 45 |
<!-- Local Java Script -->
|
45 |
<!-- Local Java Script -->
|
| 46 |
<script language="JavaScript">
|
46 |
<script language="JavaScript">
|
| 47 |
// Local Tips
|
47 |
// Local Tips
|
| 48 |
formTips.tips.following = stdTip(200, 'Following', 'The user may \'follow\' a package in one or more Projects.<p>When the package is released the user will be notified by email.' );
|
48 |
formTips.tips.following = stdTip(200, 'Following', 'The user may \'follow\' a package in one or more Projects.<p>When the package is released the user will be notified by email.' );
|
| - |
|
49 |
formTips.tips.ripple_stop = stdTip(200, 'Ripple Stop', 'When set, will prevent the package being rippled. May be cleared to allow the ripple to continue.<p>If marked as \'Persistent\', then each new version will be marked to prevent rippling.' );
|
| 49 |
</script>
|
50 |
</script>
|
| 50 |
<%
|
51 |
<%
|
| 51 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
52 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 52 |
Function asDepIss ( SSiss_db_id, SScolumn )
|
53 |
Function asDepIss ( SSiss_db_id, SScolumn )
|
| 53 |
If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
|
54 |
If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
|
| Line 1497... |
Line 1498... |
| 1497 |
</tr>
|
1498 |
</tr>
|
| 1498 |
<%End If%>
|
1499 |
<%End If%>
|
| 1499 |
<%End If%>
|
1500 |
<%End If%>
|
| 1500 |
|
1501 |
|
| 1501 |
<%If NOT pkgInfoHash.Item ("is_pegged") Then%>
|
1502 |
<%If NOT pkgInfoHash.Item ("is_pegged") Then%>
|
| - |
|
1503 |
<%If Request("rtag_id") <> "" Then%>
|
| 1502 |
<tr>
|
1504 |
<tr>
|
| 1503 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
1505 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
| 1504 |
<strong>Build Inclusion</strong>
|
1506 |
<strong>Build Inclusion</strong>
|
| 1505 |
<%=Quick_Help ( "ripple_build" )%>
|
1507 |
<%=Quick_Help ( "ripple_build" )%>
|
| 1506 |
</td>
|
1508 |
</td>
|
| 1507 |
<%If Request("rtag_id") <> "" Then
|
- |
|
| 1508 |
Dim rsQryRipple
|
1509 |
<%Dim rsQryRipple
|
| 1509 |
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))
|
1510 |
Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT p.PKG_NAME, pv.PV_OVERVIEW, pv.PKG_ID,nvl(dnr.root_pv_id, -1) as root_pv_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))
|
| 1510 |
If rsQryRipple.RecordCount <> 0 Then
|
1511 |
If rsQryRipple.RecordCount <> 0 Then
|
| 1511 |
Dim CauseText
|
1512 |
Dim CauseText
|
| 1512 |
Dim shref_base
|
1513 |
Dim shref_base
|
| 1513 |
Dim rowData
|
1514 |
Dim rowData
|
| 1514 |
shref_base = "http://" & archive_server & "/devl/abtlog/"
|
1515 |
shref_base = "http://" & archive_server & "/devl/abtlog/"
|
| 1515 |
If (IsNull(rsQryRipple("root_file")) AND IsNull(rsQryRipple("root_cause"))) Then
|
1516 |
If (IsNull(rsQryRipple("root_file")) AND IsNull(rsQryRipple("root_cause"))) Then
|
| 1516 |
If isNull(rsQryRipple("root_pv_id")) Then
|
1517 |
If rsQryRipple("root_pv_id") < 0 Then
|
| 1517 |
CauseText = "Manually Excluded"
|
1518 |
CauseText = "Directly Excluded"
|
| 1518 |
Else
|
1519 |
Else
|
| 1519 |
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>"
|
1520 |
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>"
|
| 1520 |
End If
|
1521 |
End If
|
| 1521 |
|
1522 |
|
| 1522 |
ElseIf IsNull(rsQryRipple("root_file")) Then
|
1523 |
ElseIf IsNull(rsQryRipple("root_file")) Then
|
| Line 1527... |
Line 1528... |
| 1527 |
" Log file may have expired."" " &_
|
1528 |
" Log file may have expired."" " &_
|
| 1528 |
"href=""" & shref_base & rsQryRipple("root_file") & """>" &_
|
1529 |
"href=""" & shref_base & rsQryRipple("root_file") & """>" &_
|
| 1529 |
"Build Failure Log File</a>"
|
1530 |
"Build Failure Log File</a>"
|
| 1530 |
End If
|
1531 |
End If
|
| 1531 |
%>
|
1532 |
%>
|
| 1532 |
<td bgcolor=#f5f5f5 class="sublbox_txt">No. <%=CauseText%>
|
1533 |
<td bgcolor=#f5f5f5 class="sublbox_txt">No. <%=CauseText%>
|
| 1533 |
</td>
|
1534 |
</td>
|
| 1534 |
<%Else%>
|
1535 |
<%Else%>
|
| 1535 |
<td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
|
1536 |
<td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
|
| 1536 |
<%End If%>
|
1537 |
<%End If%>
|
| 1537 |
<%rsQryRipple.Close()
|
1538 |
<%rsQryRipple.Close()
|
| 1538 |
Set rsQryRipple = nothing
|
1539 |
Set rsQryRipple = nothing%>
|
| 1539 |
End If%>
|
- |
|
| 1540 |
</tr>
|
1540 |
</tr>
|
| - |
|
1541 |
<%End If%>
|
| 1541 |
<tr>
|
1542 |
<tr>
|
| 1542 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
1543 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
| 1543 |
<strong>Ripple Type</strong>
|
1544 |
<strong>Ripple Type</strong>
|
| 1544 |
<%=Quick_Help ( "ripple_type" )%>
|
1545 |
<%=Quick_Help ( "ripple_type" )%>
|
| 1545 |
</td>
|
1546 |
</td>
|
| Line 1591... |
Line 1592... |
| 1591 |
Response.write "</table>"
|
1592 |
Response.write "</table>"
|
| 1592 |
%>
|
1593 |
%>
|
| 1593 |
</td>
|
1594 |
</td>
|
| 1594 |
</tr>
|
1595 |
</tr>
|
| 1595 |
<%End If%>
|
1596 |
<%End If%>
|
| - |
|
1597 |
<%If Request("rtag_id") <> "" Then
|
| - |
|
1598 |
Dim sClickStop, sStopText, dRippleStop, sButtonText, sPersistText
|
| - |
|
1599 |
dRippleStop = pkgInfoHash.Item("ripple_stop")
|
| - |
|
1600 |
If dRippleStop = "" OR IsNull(dRippleStop) Then
|
| - |
|
1601 |
sClickStop="vixConfirm('Marked this package so as to prevent it from being built<br>when its dependencies change, until it is manually resumed.<p>Stop Ripple Builds',{title:'Stop Ripple', button:'Stop', url: '_s_ripple_stop.asp?mode=s&rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"'});"
|
| - |
|
1602 |
sStopText = "Normal"
|
| - |
|
1603 |
sButtonText = "Change"
|
| - |
|
1604 |
ElseIf dRippleStop = "s" Then
|
| - |
|
1605 |
sClickStop="vixConfirm('This package has been marked to prevented ripple builds.<p>Remove this marker',{title:'Remove Ripple', button:'Remove', url: '_s_ripple_stop.asp?mode=r&rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"'});"
|
| - |
|
1606 |
sStopText = "Ripples will stop at this package"
|
| - |
|
1607 |
sButtonText = "Remove"
|
| - |
|
1608 |
ElseIf dRippleStop = "w" Then
|
| - |
|
1609 |
sClickStop="vixConfirm('This package has been marked to prevented ripple builds<br>and a ripple is required.<p>Allow ripple to continue.',{title:'Continue Ripple', button:'Allow Ripple', url: '_s_ripple_stop.asp?mode=g&rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"'});"
|
| - |
|
1610 |
sStopText = "Ripple required and awaiting manual intervention"
|
| - |
|
1611 |
sButtonText = "Resume"
|
| - |
|
1612 |
ElseIf dRippleStop = "g" Then
|
| - |
|
1613 |
sStopText = "Ripple resumed. Awaiting build"
|
| - |
|
1614 |
Else
|
| - |
|
1615 |
sStopText = "Ripple Stop: Unknown state:" & dRippleStop
|
| - |
|
1616 |
End If
|
| - |
|
1617 |
|
| - |
|
1618 |
sPersistText = ""
|
| - |
|
1619 |
If NOT IsNull(pkgInfoHash.Item("persist_ripple_stop")) Then
|
| - |
|
1620 |
sPersistText = " [Persistent Ripple Stop Enabled]"
|
| - |
|
1621 |
End If
|
| - |
|
1622 |
|
| - |
|
1623 |
%>
|
| - |
|
1624 |
<tr>
|
| - |
|
1625 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
| - |
|
1626 |
<strong>Ripple Stop</strong>
|
| - |
|
1627 |
<%=Quick_Help ( "ripple_stop" )%>
|
| - |
|
1628 |
<td bgcolor=#f5f5f5 class='sublbox_txt'>
|
| - |
|
1629 |
<%=sStopText%><%=sPersistText%>
|
| - |
|
1630 |
<%If canActionInProject() AND sClickStop <> "" Then%>
|
| - |
|
1631 |
<a href='javascript:;' onClick="<%=sClickStop%>" class="txt_linked"><%=sButtonText%><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
|
| - |
|
1632 |
<%End If%>
|
| - |
|
1633 |
</tr>
|
| - |
|
1634 |
<%End If%>
|
| 1596 |
</table>
|
1635 |
</table>
|
| 1597 |
</fieldset>
|
1636 |
</fieldset>
|
| 1598 |
<br>
|
1637 |
<br>
|
| 1599 |
<%End If%>
|
1638 |
<%End If%>
|
| 1600 |
|
1639 |
|