Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					Obsolete Patch
 8 
'               Obsolete Patch
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 34... Line 34...
34 
Set objFormComponent = New FormComponent
 34 
Set objFormComponent = New FormComponent
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
'Function Get_Comments( NNPv_id )
 38 
'Function Get_Comments( NNPv_id )
39 
'	Dim rsTemp, Query_String
 39 
'   Dim rsTemp, Query_String
40 
'	Query_String = _
 40 
'   Query_String = _
41 
'	" SELECT obsolete_comments"&_
 41 
'   " SELECT obsolete_comments"&_
42 
'	"  FROM package_versions"&_
 42 
'   "  FROM package_versions"&_
43 
'	" WHERE pv_id = "& NNPv_id
 43 
'   " WHERE pv_id = "& NNPv_id
44 
'	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 44 
'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
45 
'	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 45 
'   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
46 
'		Get_Comments = rsTemp.Fields("obsolete_comments")
 46 
'      Get_Comments = rsTemp.Fields("obsolete_comments")
47 
'	End If
 47 
'   End If
48 
'	rsTemp.Close
 48 
'   rsTemp.Close
49 
'	Set rsTemp = nothing
 49 
'   Set rsTemp = nothing
50 
'End Function
 50 
'End Function
51 
 
 51 
 
52 
Sub SubmitObsoleteComments ( NNPatch_id_list )
 52 
Sub SubmitObsoleteComments ( NNPatch_id_list )
53 
	Dim isPatchObsolete
 53 
   Dim isPatchObsolete
- 
 
 54 
 
- 
 
 55 
   isPatchObsolete = "Y"
- 
 
 56 
   If Request("unobsolete") <> "" Then
- 
 
 57 
      isPatchObsolete = NULL
- 
 
 58 
   End If
- 
 
 59 
 
- 
 
 60 
   OraDatabase.Parameters.Add "PATCH_ID_LIST",     NNPatch_id_list,              ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 61 
   OraDatabase.Parameters.Add "IS_OBSOLETE",       isPatchObsolete,              ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 62 
   OraDatabase.Parameters.Add "OBSOLETE_COMMENTS", Request("obsolete_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 63 
   OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,      ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 64 
 
- 
 
 65 
   On Error Resume Next
- 
 
 66 
   objEH.TryORA ( OraSession )
- 
 
 67 
 
- 
 
 68 
   OraDatabase.ExecuteSQL _
- 
 
 69 
   " BEGIN  PK_PACKAGE.OBSOLETE_PATCHES ( :PATCH_ID_LIST, :IS_OBSOLETE, :OBSOLETE_COMMENTS, :USER_ID );   END;"
- 
 
 70 
 
- 
 
 71 
   objEH.CatchORA ( OraSession )
- 
 
 72 
 
- 
 
 73 
   OraDatabase.Parameters.Remove "PATCH_ID_LIST"
- 
 
 74 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 75 
   OraDatabase.Parameters.Remove "IS_OBSOLETE"
- 
 
 76 
   OraDatabase.Parameters.Remove "OBSOLETE_COMMENTS"
54 
 
 77 
 
55 
	isPatchObsolete = "Y"
 - 
 
56 
	If Request("unobsolete") <> "" Then
 - 
 
57 
		isPatchObsolete = NULL
 - 
 
58 
	End If
 - 
 
59
- 
 
60 
	OraDatabase.Parameters.Add "PATCH_ID_LIST", 	NNPatch_id_list, 	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
61 
	OraDatabase.Parameters.Add "IS_OBSOLETE", 		isPatchObsolete, 	ORAPARM_INPUT, ORATYPE_CHAR
 - 
 
62 
	OraDatabase.Parameters.Add "OBSOLETE_COMMENTS", Request("obsolete_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
63 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
64
- 
 
65 
	objEH.TryORA ( OraSession )
 - 
 
66 
 
 - 
 
67 
	OraDatabase.ExecuteSQL _
 - 
 
68 
	" BEGIN  PK_PACKAGE.OBSOLETE_PATCHES ( :PATCH_ID_LIST, :IS_OBSOLETE, :OBSOLETE_COMMENTS, :USER_ID );   END;"
 - 
 
69 
 
 - 
 
70 
	objEH.CatchORA ( OraSession )
 - 
 
71
- 
 
72 
	OraDatabase.Parameters.Remove "PATCH_ID_LIST"
 - 
 
73 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
74 
	OraDatabase.Parameters.Remove "IS_OBSOLETE"
 - 
 
75 
	OraDatabase.Parameters.Remove "OBSOLETE_COMMENTS"
 - 
 
76
- 
 
77 
End Sub
 78 
End Sub
78 
%>
 79 
%>
79 
<%
 80 
<%
80 
'Process submission
 81 
'Process submission
81 
'------------ Action Requirements -------------------
 82 
'------------ Action Requirements -------------------
82 
If CBool(QStrPar("action"))   AND  objAccessControl.UserLogedIn  Then
 83 
If CBool(QStrPar("action"))   AND  objAccessControl.UserLogedIn  Then
83
84 
 
84 
	Call SubmitObsoleteComments ( Request("patch_id_list") )
 85 
   Call SubmitObsoleteComments ( Request("patch_id_list") )
85 
	Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& Request("rtag_id") )
 86 
   Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& Request("rtag_id") )
86 
	Call CloseWindow
 87 
   Call CloseWindow
87
88 
 
88 
End If
 89 
End If
89 
%>
 90 
%>
90 
<html>
 91 
<html>
91 
<head>
 92 
<head>
92 
<title>Release Manager</title>
 93 
<title>Release Manager</title>
Line 100... Line 101...
100 
<%
 101 
<%
101 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 102 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
102 
objFormComponent.FormName = "FormSearch"
 103 
objFormComponent.FormName = "FormSearch"
103 
objFormComponent.Action = scriptName
 104 
objFormComponent.Action = scriptName
104 
Call objFormComponent.FormStart()
 105 
Call objFormComponent.FormStart()
105 
%>
106 
%>
106 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 107 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
107 
    <tr>
108 
      <tr>
108 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
 109 
         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
109 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Make Patches Obsolete</td>
 110 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Make Patches Obsolete</td>
110 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
111 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
111 
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
 112 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
112 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 113 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
113 
      </td>
 114 
         </td>
114 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
115 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap><img src="images/h_trsp_dot.gif" width="5" height="22"></td>
115 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 - 
 
116 
    </tr>
 116 
      </tr>
117 
    <tr>
117 
      <tr>
118 
      <td height="100%" width="1%">&nbsp;</td>
 118 
         <td height="100%" width="1%">&nbsp;</td>
119 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
119 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
120 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 120 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 
          <tr>
121 
               <tr>
122 
            <td width="4%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 122 
                  <td width="4%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
123 
            <td nowrap width="60%">&nbsp; </td>
 123 
                  <td nowrap width="60%">&nbsp; </td>
124 
          </tr>
 124 
               </tr>
125 
          <tr>
125 
               <tr>
126 
            <td width="4%">&nbsp;</td>
 126 
                  <td width="4%">&nbsp;</td>
127 
            <td nowrap width="60%" background="images/bg_form_lightbluedark.gif" class="form_txt">
127 
                  <td nowrap width="60%" background="images/bg_form_lightbluedark.gif" class="form_txt">
128 
              <textarea name="obsolete_comments" class="form_item" cols="60" rows="10"></textarea>
 128 
                     <textarea name="obsolete_comments" class="form_item" cols="60" rows="10"></textarea>
129
129 
 
130 
			  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
 130 
                     <input type="hidden" name="pv_id" value="<%=parPv_id%>">
131 
			  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 131 
                     <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
132 
			  <input type="hidden" name="rfile" value="<%=Request("rfile")%>">
 132 
                     <input type="hidden" name="rfile" value="<%=Request("rfile")%>">
133 
              <input type="hidden" name="action" value="true">
 133 
                     <input type="hidden" name="action" value="true">
134 
            </td>
 134 
                  </td>
135 
          </tr>
 135 
               </tr>
136 
          <tr>
136 
               <tr>
137 
            <td width="4%">&nbsp;</td>
 137 
                  <td width="4%">&nbsp;</td>
138 
            <td nowrap width="60%">
138 
                  <td nowrap width="60%">
139 
              <p>&nbsp;</p>
 139 
                  <p>&nbsp;</p>
140 
            </td>
 140 
                  </td>
141 
          </tr>
 141 
               </tr>
142 
		    <!-- INCLUDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 142 
               <!-- INCLUDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
143 
<%
143 
               <%
144 
			OraDatabase.Parameters.Add "PV_ID", 	parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
144 
               OraDatabase.Parameters.Add "PV_ID",    parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
145 
			OraDatabase.Parameters.Add "HIDE_OBSOLETE", 	"Y", ORAPARM_INPUT, ORATYPE_CHAR
 145 
               OraDatabase.Parameters.Add "HIDE_OBSOLETE",    "Y", ORAPARM_INPUT, ORATYPE_CHAR
146
146 
 
147 
			Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("Patches.sql"), cint(0))
 147 
               Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("Patches.sql"), cint(0))
148
148 
 
149 
			OraDatabase.Parameters.Remove "PV_ID"
 149 
               OraDatabase.Parameters.Remove "PV_ID"
150 
			OraDatabase.Parameters.Remove "HIDE_OBSOLETE"
 150 
               OraDatabase.Parameters.Remove "HIDE_OBSOLETE"
151
151 
 
152 
			patchRecCount = rsTemp.RecordCount
152 
               patchRecCount = rsTemp.RecordCount
153
153 
 
154 
%>
154 
               %>
155 
 		  <tr>
155 
               <tr>
156 
            <td width="33%" colspan="3" nowrap class="body_colb">Available Patches For Obsolete<br>
 156 
                  <td width="33%" colspan="3" nowrap class="body_colb">Available Patches For Obsolete<br>
157 
              <table width="265" border="0">
 157 
                     <table width="265" border="0">
158 
                <tr>
 158 
                        <tr>
159 
                  <td width="20" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 159 
                           <td width="20" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
160 
                  <td width="90" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 160 
                           <td width="90" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
161 
                  <td width="119" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 161 
                           <td width="119" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
162 
                </tr>
 162 
                        </tr>
163 
				<%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
 163 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
164 
                <tr>
 164 
                           <tr>
165 
				<%If (rsTemp("patch_id")) <> "0" Then %>
 165 
                              <%If (rsTemp("patch_id")) <> "0" Then %>
166 
                  <td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("patch_id")%>"></td>
 166 
                                 <td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("patch_id")%>"></td>
167 
				<%Else%>
 167 
                              <%Else%>
168 
				  <td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("ppatch_id")%>"></td>
168 
                                 <td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("ppatch_id")%>"></td>
169 
				<%End If%>
169 
                              <%End If%>
170 
                  <td nowrap class="form_txt"><%=rsTemp("pkg_name")%></td>
 170 
                              <td nowrap class="form_txt"><%=rsTemp("pkg_name")%></td>
171 
                  <td width="18" nowrap class="form_txt"><%=rsTemp("pkg_version")%></td>
 171 
                              <td width="18" nowrap class="form_txt"><%=rsTemp("pkg_version")%></td>
172 
                </tr>
 172 
                           </tr>
173 
		  <%rsTemp.MoveNext
 173 
                           <%rsTemp.MoveNext
174 
		  WEnd
 174 
                        WEnd
175
175 
 
176 
		  rsTemp.Close
 176 
                        rsTemp.Close
177 
		  Set rsTemp = nothing
 177 
                        Set rsTemp = nothing
178 
		  %>
178 
                        %>
179 
              </table>
 179 
                     </table>
180 
              <br>
 180 
                     <br>
181 
            </td>
 181 
                  </td>
182 
          </tr>
 182 
               </tr>
183 
        </table>
 183 
            </table>
184 
      </td>
 184 
         </td>
185 
    </tr>
 185 
      </tr>
186 
    <tr>
 186 
      <tr>
187 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 187 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
188 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 188 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
189 
    </tr>
 189 
      </tr>
190 
  </table>
 190 
   </table>
- 
 
 191 
 
191 
 
 192 
 
192
- 
 
193 
<%
 193 
<%
194 
Call objFormComponent.FormEnd()
 194 
Call objFormComponent.FormEnd()
195 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 195 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
196 
%>
 196 
%>
197 
</body>
 197 
</body>
198 
</html>
 198 
</html>
199 
 
 199 
 
200 
 
 200 
 
201 
<!-- DESTRUCTOR ------->
 201 
<!-- DESTRUCTOR ------->
202 
<!--#include file="common/destructor.asp"-->
 - 
 
203 

            202
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            203