| Line 191... |
Line 191... |
| 191 |
End Function
|
191 |
End Function
|
| 192 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
192 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 193 |
Sub LastPvId (PvId)
|
193 |
Sub LastPvId (PvId)
|
| 194 |
Dim sqlstr
|
194 |
Dim sqlstr
|
| 195 |
|
195 |
|
| 196 |
sqlstr = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId &_
|
196 |
sqlstr = "SELECT pv_id, pkg_version, comments, last_pv_id FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId
|
| 197 |
" UNION SELECT * FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID= "& PvId
|
- |
|
| 198 |
|
197 |
|
| 199 |
Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
|
198 |
Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
|
| 200 |
|
199 |
|
| 201 |
End Sub
|
200 |
End Sub
|
| 202 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
201 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| Line 952... |
Line 951... |
| 952 |
</tr>
|
951 |
</tr>
|
| 953 |
</table>
|
952 |
</table>
|
| 954 |
</fieldset>
|
953 |
</fieldset>
|
| 955 |
<br><br>
|
954 |
<br><br>
|
| 956 |
<%End If%>
|
955 |
<%End If%>
|
| - |
|
956 |
|
| - |
|
957 |
|
| - |
|
958 |
|
| 957 |
<!-- RIPPLE PROPERTIES ----------------------------------------------------------------------------------------------------------------------->
|
959 |
<!-- RIPPLE PROPERTIES ----------------------------------------------------------------------------------------------------------------------->
|
| 958 |
<%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
|
960 |
<%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
|
| 959 |
<fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_ripple_type.gif' hspace='4' border='0' align='absmiddle' height='25' width='25'>Ripple Properties</legend>
|
961 |
<fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_ripple_type.gif' hspace='4' border='0' align='absmiddle' height='25' width='25'>Ripple Properties</legend>
|
| 960 |
<a name="RIPPLE_PROPERTIES"></a>
|
962 |
<a name="RIPPLE_PROPERTIES"></a>
|
| 961 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
963 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 962 |
<tr>
|
964 |
<tr>
|
| 963 |
<td class="body_colb"></td>
|
965 |
<td class="body_colb"></td>
|
| 964 |
<td align="right" valign="bottom">
|
966 |
<td align="right" valign="bottom">
|
| 965 |
<%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable Then%>
|
967 |
<%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable Then%>
|
| 966 |
<a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=400')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
|
968 |
<a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=500')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
|
| 967 |
<%End If%>
|
969 |
<%End If%>
|
| 968 |
</td>
|
970 |
</td>
|
| 969 |
</tr>
|
971 |
</tr>
|
| 970 |
</table>
|
972 |
</table>
|
| 971 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
973 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| - |
|
974 |
|
| - |
|
975 |
<%If Request("rtag_id") <> "" Then
|
| - |
|
976 |
Dim rsQryPegged
|
| 972 |
<tr>
|
977 |
Dim isPegged
|
| 973 |
<td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
|
978 |
Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT * FROM PEGGED_VERSIONS WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="& Request("pv_id"), cint(0))
|
| - |
|
979 |
|
| 974 |
<strong>Build Inclusion</strong>
|
980 |
If rsQryPegged.RecordCount = 0 Then
|
| 975 |
<%=Quick_Help ( "ripple_build" )%>
|
981 |
isPegged = FALSE%>
|
| 976 |
</td>
|
982 |
<%Else
|
| 977 |
<%If Request("rtag_id") <> "" Then
|
983 |
isPegged = TRUE %>
|
| 978 |
Dim rsQryRipple
|
984 |
<tr>
|
| 979 |
Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
|
985 |
<td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
|
| 980 |
If rsQryRipple.RecordCount = 0 Then %>
|
986 |
<strong>Is Pegged</strong>
|
| - |
|
987 |
<%=Quick_Help ( "pegged_version" )%>
|
| - |
|
988 |
</td>
|
| 981 |
<td background="images/bg_form_lightgray.gif" class="sublbox_txt">Yes</td>
|
989 |
<td background="images/bg_form_lightgray.gif" class="sublbox_txt">Yes</td>
|
| - |
|
990 |
</tr>
|
| - |
|
991 |
<%End If%>
|
| - |
|
992 |
<%rsQryPegged.Close()
|
| - |
|
993 |
Set rsQryPegged = nothing
|
| - |
|
994 |
End If%>
|
| - |
|
995 |
|
| - |
|
996 |
<%If isPegged = FALSE Then%>
|
| - |
|
997 |
<tr>
|
| - |
|
998 |
<td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
|
| - |
|
999 |
<strong>Build Inclusion</strong>
|
| - |
|
1000 |
<%=Quick_Help ( "ripple_build" )%>
|
| - |
|
1001 |
</td>
|
| - |
|
1002 |
<%If Request("rtag_id") <> "" Then
|
| - |
|
1003 |
Dim rsQryRipple
|
| - |
|
1004 |
Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
|
| - |
|
1005 |
If rsQryRipple.RecordCount = 0 Then %>
|
| - |
|
1006 |
<td background="images/bg_form_lightgray.gif" class="sublbox_txt">Yes</td>
|
| 982 |
<%Else%>
|
1007 |
<%Else%>
|
| 983 |
<td background="images/bg_form_lightgray.gif" class="sublbox_txt">No</td>
|
1008 |
<td background="images/bg_form_lightgray.gif" class="sublbox_txt">No</td>
|
| 984 |
<%End If%>
|
1009 |
<%End If%>
|
| 985 |
<%rsQryRipple.Close()
|
1010 |
<%rsQryRipple.Close()
|
| 986 |
Set rsQryRipple = nothing
|
1011 |
Set rsQryRipple = nothing
|
| 987 |
End If%>
|
1012 |
End If%>
|
| 988 |
</tr>
|
1013 |
</tr>
|
| 989 |
<tr>
|
1014 |
<tr>
|
| 990 |
<td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
|
1015 |
<td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
|
| 991 |
<strong>Ripple Type</strong>
|
1016 |
<strong>Ripple Type</strong>
|
| 992 |
<%=Quick_Help ( "ripple_type" )%>
|
1017 |
<%=Quick_Help ( "ripple_type" )%>
|
| 993 |
</td>
|
1018 |
</td>
|
| 994 |
<td width="80%" background="images/bg_form_lightgray.gif">
|
1019 |
<td width="80%" background="images/bg_form_lightgray.gif">
|
| 995 |
<p>
|
1020 |
<p>
|
| 996 |
<%
|
1021 |
<%
|
| 997 |
Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
|
1022 |
Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
|
| 998 |
Response.write "<tr>"
|
1023 |
Response.write "<tr>"
|
| 999 |
Response.write "<td class='sublbox_txt'>"
|
1024 |
Response.write "<td class='sublbox_txt'>"
|
| 1000 |
Dim anotherQry, selectedRippleType
|
1025 |
Dim anotherQry, selectedRippleType
|
| 1001 |
selectedRippleType = pkgInfoHash.Item ("ripple_field")
|
1026 |
selectedRippleType = pkgInfoHash.Item ("ripple_field")
|
| 1002 |
Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
|
1027 |
Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
|
| 1003 |
If anotherQry.RecordCount = 0 Then
|
1028 |
If anotherQry.RecordCount = 0 Then
|
| 1004 |
Response.write "<span class='err_alert'>Required!</span>"
|
1029 |
Response.write "<span class='err_alert'>Required!</span>"
|
| 1005 |
Else
|
1030 |
Else
|
| 1006 |
Response.write( anotherQry.Fields("state_name").Value )
|
1031 |
Response.write( anotherQry.Fields("state_name").Value )
|
| 1007 |
End If
|
1032 |
End If
|
| 1008 |
anotherQry.Close()
|
1033 |
anotherQry.Close()
|
| 1009 |
Set anotherQry = nothing
|
1034 |
Set anotherQry = nothing
|
| 1010 |
If ( selectedRippleType = "L" ) Then
|
1035 |
If ( selectedRippleType = "L" ) Then
|
| 1011 |
Dim qry
|
1036 |
Dim qry
|
| 1012 |
Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
|
1037 |
Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
|
| 1013 |
Response.write " "
|
1038 |
Response.write " "
|
| 1014 |
If isNull(qry("major_limit")) Then
|
1039 |
If isNull(qry("major_limit")) Then
|
| 1015 |
Response.write("0")
|
1040 |
Response.write("0")
|
| 1016 |
Else
|
1041 |
Else
|
| 1017 |
Response.write( qry.Fields( "major_limit" ).Value )
|
1042 |
Response.write( qry.Fields( "major_limit" ).Value )
|
| 1018 |
End If
|
1043 |
End If
|
| 1019 |
Response.write ", "
|
1044 |
Response.write ", "
|
| 1020 |
If isNull(qry("minor_limit")) Then
|
1045 |
If isNull(qry("minor_limit")) Then
|
| 1021 |
Response.write("0")
|
1046 |
Response.write("0")
|
| 1022 |
Else
|
1047 |
Else
|
| 1023 |
Response.write( qry.Fields( "minor_limit" ).Value )
|
1048 |
Response.write( qry.Fields( "minor_limit" ).Value )
|
| 1024 |
End If
|
1049 |
End If
|
| 1025 |
Response.write ", "
|
1050 |
Response.write ", "
|
| 1026 |
If isNull(qry("patch_limit")) Then
|
1051 |
If isNull(qry("patch_limit")) Then
|
| 1027 |
Response.write("0")
|
1052 |
Response.write("0")
|
| 1028 |
Else
|
1053 |
Else
|
| 1029 |
Response.write( qry.Fields( "patch_limit" ).Value )
|
1054 |
Response.write( qry.Fields( "patch_limit" ).Value )
|
| 1030 |
End If
|
1055 |
End If
|
| 1031 |
Response.write ", "
|
1056 |
Response.write ", "
|
| 1032 |
If isNull(qry("build_number_limit")) Then
|
1057 |
If isNull(qry("build_number_limit")) Then
|
| 1033 |
Response.write("0")
|
1058 |
Response.write("0")
|
| 1034 |
Else
|
1059 |
Else
|
| 1035 |
Response.write( qry.Fields( "build_number_limit" ).Value )
|
1060 |
Response.write( qry.Fields( "build_number_limit" ).Value )
|
| 1036 |
End If
|
1061 |
End If
|
| 1037 |
qry.Close()
|
1062 |
qry.Close()
|
| 1038 |
Set qry = nothing
|
1063 |
Set qry = nothing
|
| 1039 |
End If
|
1064 |
End If
|
| 1040 |
Response.Write "<br></td>"
|
1065 |
Response.Write "<br></td>"
|
| 1041 |
Response.write "</tr>"
|
1066 |
Response.write "</tr>"
|
| 1042 |
Response.write "</table>"
|
1067 |
Response.write "</table>"
|
| 1043 |
%>
|
1068 |
%>
|
| 1044 |
</p>
|
1069 |
</p>
|
| 1045 |
</td>
|
1070 |
</td>
|
| 1046 |
</tr>
|
1071 |
</tr>
|
| - |
|
1072 |
<%End If%>
|
| 1047 |
</table>
|
1073 |
</table>
|
| 1048 |
</fieldset>
|
1074 |
</fieldset>
|
| 1049 |
<br>
|
1075 |
<br>
|
| 1050 |
<br>
|
1076 |
<br>
|
| 1051 |
<%End If%>
|
1077 |
<%End If%>
|
| - |
|
1078 |
|
| - |
|
1079 |
|
| - |
|
1080 |
|
| - |
|
1081 |
|
| 1052 |
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
|
1082 |
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
|
| 1053 |
<fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for this version</legend>
|
1083 |
<fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for this version</legend>
|
| 1054 |
<a name="REASON_FOR_THIS_RELEASE"></a>
|
1084 |
<a name="REASON_FOR_THIS_RELEASE"></a>
|
| 1055 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
1085 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 1056 |
<tr>
|
1086 |
<tr>
|