| Line 198... |
Line 198... |
| 198 |
OraDatabase.Parameters.Remove "PV_ID"
|
198 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 199 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
199 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 200 |
OraDatabase.Parameters.Remove "USER_ID"
|
200 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 201 |
|
201 |
|
| 202 |
End Sub
|
202 |
End Sub
|
| - |
|
203 |
|
| - |
|
204 |
'------------------------------------------------------------------------------------------------------------------------------------
|
| - |
|
205 |
Sub PersistRippleStop (flag)
|
| - |
|
206 |
Dim rsTemp, Query_String
|
| - |
|
207 |
Query_String = _
|
| - |
|
208 |
" SELECT persist_ripple_stop"&_
|
| - |
|
209 |
" FROM release_content"&_
|
| - |
|
210 |
" WHERE pv_id = :PV_ID AND rtag_id = :RTAG_ID"
|
| - |
|
211 |
|
| - |
|
212 |
OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
213 |
OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
214 |
|
| - |
|
215 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
| - |
|
216 |
|
| - |
|
217 |
Dim sValue, textValue
|
| - |
|
218 |
sValue = NULL
|
| - |
|
219 |
textValue = "clear_persist_ripple_stop"
|
| - |
|
220 |
If flag Then
|
| - |
|
221 |
textValue = "set_persist_ripple_stop"
|
| - |
|
222 |
sValue = "Y"
|
| - |
|
223 |
End If
|
| - |
|
224 |
|
| - |
|
225 |
|
| - |
|
226 |
'update fields
|
| - |
|
227 |
rsTemp.Edit()
|
| - |
|
228 |
rsTemp.Fields("persist_ripple_stop").Value = sValue
|
| - |
|
229 |
rsTemp.Update()
|
| - |
|
230 |
|
| - |
|
231 |
' Determine the location of th epackage-version
|
| - |
|
232 |
Query_String = _
|
| - |
|
233 |
"SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME AS ReleaseLocation" &_
|
| - |
|
234 |
" FROM PROJECTS proj,RELEASE_TAGS rt" &_
|
| - |
|
235 |
" WHERE rt.PROJ_ID = proj.PROJ_ID AND rt.RTAG_ID = :RTAG_ID"
|
| - |
|
236 |
|
| - |
|
237 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| - |
|
238 |
Dim ReleaseLocation : ReleaseLocation = "Unknown"
|
| - |
|
239 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
| - |
|
240 |
ReleaseLocation = rsTemp.Fields("ReleaseLocation")
|
| - |
|
241 |
End If
|
| - |
|
242 |
|
| - |
|
243 |
OraDatabase.Parameters.Remove "PV_ID"
|
| - |
|
244 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| - |
|
245 |
rsTemp.Close()
|
| - |
|
246 |
Set rsTemp = nothing
|
| - |
|
247 |
|
| - |
|
248 |
'/* Log Action */
|
| - |
|
249 |
Call Log_Action ( Request("pv_id"), textValue, "Location: " & ReleaseLocation)
|
| - |
|
250 |
|
| - |
|
251 |
End Sub
|
| 203 |
'------------------------------------------------------------------------------------------------------------------------------------
|
252 |
'------------------------------------------------------------------------------------------------------------------------------------
|
| 204 |
Sub Get_Form_Details( nRtag_id, nPv_id, ByRef objDetails )
|
253 |
Sub Get_Form_Details( nRtag_id, nPv_id, ByRef objDetails )
|
| 205 |
Dim rsTemp, Query_String
|
254 |
Dim rsTemp, Query_String
|
| 206 |
Query_String = _
|
255 |
Query_String = _
|
| 207 |
" SELECT * "&_
|
256 |
" SELECT * "&_
|
| Line 390... |
Line 439... |
| 390 |
'Start Process Submission
|
439 |
'Start Process Submission
|
| 391 |
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
|
440 |
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
|
| 392 |
|
441 |
|
| 393 |
Call UpdateRippleType()
|
442 |
Call UpdateRippleType()
|
| 394 |
|
443 |
|
| - |
|
444 |
' Changes to the Persistent Ripple Stop -----------------------------------
|
| - |
|
445 |
If NOT CBool(QStrPar("prippleStopFlag")) AND Request("FRprippleStop") = "1" Then
|
| - |
|
446 |
Call PersistRippleStop(True)
|
| - |
|
447 |
End If
|
| - |
|
448 |
|
| - |
|
449 |
If CBool(QStrPar("prippleStopFlag")) AND Request("FRprippleStop") = "0" Then
|
| - |
|
450 |
Call PersistRippleStop(False)
|
| - |
|
451 |
End If
|
| 395 |
|
452 |
|
| 396 |
' Changes to DO NOT RIPPLE Status -----------------------------------------
|
453 |
' Changes to DO NOT RIPPLE Status -----------------------------------------
|
| 397 |
If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
|
454 |
If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
|
| 398 |
Call RipplePackage(True)
|
455 |
Call RipplePackage(True)
|
| 399 |
End If
|
456 |
End If
|
| Line 528... |
Line 585... |
| 528 |
<tr>
|
585 |
<tr>
|
| 529 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
586 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
| 530 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
587 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 531 |
<%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
|
588 |
<%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
|
| 532 |
<tr>
|
589 |
<tr>
|
| - |
|
590 |
<td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Persistent Ripple Stop?</td>
|
| - |
|
591 |
<%
|
| - |
|
592 |
Dim FRPrippleStopYES, FRPrippleStopNO, FRprippleStopDIS
|
| - |
|
593 |
|
| - |
|
594 |
FRPrippleStopYES = ""
|
| - |
|
595 |
FRPrippleStopNO = ""
|
| - |
|
596 |
FRprippleStopDIS = "disabled='disabled'"
|
| - |
|
597 |
|
| - |
|
598 |
' Allow persistent ripple stop to be set
|
| - |
|
599 |
If (canShowControlInProject( "AdvRipPackageVersions" )) AND isDLocked = "Y" Then
|
| - |
|
600 |
FRprippleStopDIS = ""
|
| - |
|
601 |
End If
|
| - |
|
602 |
|
| - |
|
603 |
Dim rsQryPrippleStop, prippleStopFlag
|
| - |
|
604 |
Set rsQryPrippleStop = OraDatabase.DbCreateDynaset( "SELECT PERSIST_RIPPLE_STOP FROM RELEASE_CONTENT WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
| - |
|
605 |
If rsQryPrippleStop.RecordCount <> 0 Then
|
| - |
|
606 |
If IsNull(rsQryPrippleStop("PERSIST_RIPPLE_STOP")) Then
|
| - |
|
607 |
FRPrippleStopNO = "checked"
|
| - |
|
608 |
prippleStopFlag = False
|
| - |
|
609 |
Else
|
| - |
|
610 |
FRPrippleStopYES = "checked"
|
| - |
|
611 |
prippleStopFlag = True
|
| - |
|
612 |
End If
|
| - |
|
613 |
End If
|
| - |
|
614 |
|
| - |
|
615 |
|
| - |
|
616 |
rsQryPrippleStop.Close()
|
| - |
|
617 |
Set rsQryPrippleStop = nothing
|
| - |
|
618 |
|
| - |
|
619 |
%>
|
| - |
|
620 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
|
| - |
|
621 |
Yes<input name="FRPrippleStop" type="radio" value="1" <%=FRprippleStopDIS%> <%=FRPrippleStopYES%> >
|
| - |
|
622 |
No<input name="FRPrippleStop" type="radio" value="0" <%=FRprippleStopDIS%> <%=FRPrippleStopNO%> >
|
| - |
|
623 |
</td>
|
| - |
|
624 |
<td background="images/bg_form_lightbluedark.gif">
|
| - |
|
625 |
<span class='err_alert'><b>WARNING!</span>
|
| - |
|
626 |
<font size='1'>
|
| - |
|
627 |
<br>
|
| - |
|
628 |
When set to Yes, this package version will not be rippled, until it has been released by a user. New versions of the
|
| - |
|
629 |
the package will be marked so as to prevent futher rippling.
|
| - |
|
630 |
</font></b>
|
| - |
|
631 |
</td>
|
| - |
|
632 |
|
| - |
|
633 |
|
| - |
|
634 |
|
| - |
|
635 |
</tr>
|
| - |
|
636 |
<tr>
|
| 533 |
<td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
|
637 |
<td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
|
| 534 |
<%
|
638 |
<%
|
| 535 |
Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
|
639 |
Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
|
| 536 |
|
640 |
|
| 537 |
FRpeggedYES = ""
|
641 |
FRpeggedYES = ""
|
| Line 627... |
Line 731... |
| 627 |
' fixing the root cause is a somewhat better approach
|
731 |
' fixing the root cause is a somewhat better approach
|
| 628 |
Dim disabled
|
732 |
Dim disabled
|
| 629 |
disabled="disabled"
|
733 |
disabled="disabled"
|
| 630 |
|
734 |
|
| 631 |
Dim rsQryRipple, rippleFlag
|
735 |
Dim rsQryRipple, rippleFlag
|
| 632 |
Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT root_pv_id FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
736 |
Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT nvl(root_pv_id,-1) as root_pv_id FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
| 633 |
|
737 |
|
| 634 |
If rsQryRipple.RecordCount = 0 Then
|
738 |
If rsQryRipple.RecordCount = 0 Then
|
| 635 |
FRripplebuildYES = "checked"
|
739 |
FRripplebuildYES = "checked"
|
| 636 |
rippleFlag = True
|
740 |
rippleFlag = True
|
| 637 |
' do not disable the default
|
741 |
' do not disable the default
|
| 638 |
disabled=""
|
742 |
disabled=""
|
| 639 |
Else
|
743 |
Else
|
| 640 |
If isNull(rsQryRipple("root_pv_id")) Then
|
744 |
If rsQryRipple("root_pv_id") < 0 Then
|
| 641 |
' pv has been excluded directly
|
745 |
' pv has been excluded directly
|
| 642 |
' ie has a null pv_id
|
746 |
' ie has a null pv_id
|
| 643 |
' once fixed, pv should be included ie do not disable
|
747 |
' once fixed, pv should be included ie do not disable
|
| 644 |
disabled=""
|
748 |
disabled=""
|
| 645 |
End If
|
749 |
End If
|
| Line 715... |
Line 819... |
| 715 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
819 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
| 716 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
820 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
| 717 |
<input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
|
821 |
<input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
|
| 718 |
<input type="hidden" name="peggedFlag" value="<%=peggedFlag%>">
|
822 |
<input type="hidden" name="peggedFlag" value="<%=peggedFlag%>">
|
| 719 |
<input type="hidden" name="advRipFlag" value="<%=advRipFlag%>">
|
823 |
<input type="hidden" name="advRipFlag" value="<%=advRipFlag%>">
|
| - |
|
824 |
<input type="hidden" name="prippleStopFlag" value="<%=prippleStopFlag%>">
|
| 720 |
<input type="hidden" name="action" value="true">
|
825 |
<input type="hidden" name="action" value="true">
|
| 721 |
</form>
|
826 |
</form>
|
| 722 |
</body>
|
827 |
</body>
|
| 723 |
</html>
|
828 |
</html>
|
| 724 |
<%
|
829 |
<%
|