Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5590
Line 53... Line 53...
53 
   isPatchObsolete = "Y"
 53 
   isPatchObsolete = "Y"
54 
   If Request("unobsolete") <> "" Then
 54 
   If Request("unobsolete") <> "" Then
55 
      isPatchObsolete = NULL
 55 
      isPatchObsolete = NULL
56 
   End If
 56 
   End If
57 
 
 57 
 
- 
 
 58 
   objEH.ErrorRedirect = FALSE
58 
   objEH.TryORA ( OraSession )
 59 
   objEH.TryORA ( OraSession )
59 
   On Error Resume Next
 60 
   On Error Resume Next
60 
 
 61 
 
61 
   If Request("FRpatch_id") <> "" Then
 62 
   If Request("FRpatch_id") <> "" Then
62 
      OraDatabase.ExecuteSQL _
 63 
      OraDatabase.ExecuteSQL _
Line 76... Line 77...
76 
   OraDatabase.Parameters.Add "OBSOLETE_COMMENTS", Request("obsolete_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 77 
   OraDatabase.Parameters.Add "OBSOLETE_COMMENTS", Request("obsolete_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
77 
   OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,      ORAPARM_INPUT, ORATYPE_NUMBER
 78 
   OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,      ORAPARM_INPUT, ORATYPE_NUMBER
78 
 
 79 
 
79 
   If Err.Number = 0 Then
 80 
   If Err.Number = 0 Then
80 
      OraDatabase.ExecuteSQL _
 81 
      OraDatabase.ExecuteSQL _
81 
      " BEGIN  PK_PACKAGE.OBSOLETE_PATCH ( :PATCH_ID, :IS_OBSOLETE, :OBSOLETE_COMMENTS, :USER_ID );   END;"
 82 
      "BEGIN  PK_PACKAGE.OBSOLETE_PATCH ( :PATCH_ID, :IS_OBSOLETE, :OBSOLETE_COMMENTS, :USER_ID );   END;"
82 
   End If
 83 
   End If
83 
 
 84 
 
84 
   objEH.CatchORA ( OraSession )
 85 
   objEH.CatchORA ( OraSession )
85 
 
 86 
 
86 
   OraDatabase.Parameters.Remove "PATCH_ID"
 87 
   OraDatabase.Parameters.Remove "PATCH_ID"
Line 93... Line 94...
93 
<%
 94 
<%
94 
'Process submition
 95 
'Process submition
95 
'------------ Action Requirements -------------------
 96 
'------------ Action Requirements -------------------
96 
If CBool(QStrPar("action"))   AND  objAccessControl.UserLogedIn  Then
 97 
If CBool(QStrPar("action"))   AND  objAccessControl.UserLogedIn  Then
97 
   Call SubmitObsoleteComments ( Request("pv_id") )
 98 
   Call SubmitObsoleteComments ( Request("pv_id") )
- 
 
 99 
    If objEH.Finally Then
98 
   Call OpenInParentWindow ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 100 
        Call OpenInParentWindow ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
99 
   Call CloseWindow
 101 
    End If
100 
 
 - 
 
101 
End If
 102 
End If
102 
%>
 103 
%>
103 
<html>
 104 
<html>
104 
<head>
 105 
<head>
105 
<title>Release Manager</title>
 106 
<title>Release Manager</title>
Line 115... Line 116...
115 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 116 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
116 
objFormComponent.FormName = "FormSearch"
 117 
objFormComponent.FormName = "FormSearch"
117 
objFormComponent.Action = scriptName
 118 
objFormComponent.Action = scriptName
118 
Call objFormComponent.FormStart()
 119 
Call objFormComponent.FormStart()
119 
%>
 120 
%>
120 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 121 
   <table width="100%" border="0" cellspacing="0" cellpadding="2">
121 
      <tr>
 122 
      <tr>
122 
         <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>
 - 
 
123 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Make Patch Obsolete</td>
 - 
 
124 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 - 
 
125 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
 - 
 
126 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 - 
 
127 
         </td>
 - 
 
128 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
 - 
 
129 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
 - 
 
130 
         </td>
 - 
 
131 
      </tr>
 - 
 
132 
      <tr>
 - 
 
133 
         <td height="100%" width="1%">&nbsp;</td>
 - 
 
134 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 123 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
- 
 
 124 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 125 
            <!--#include file="messages/_msg_inline.asp"-->
- 
 
 126 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
135 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
 127 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
136 
               <tr>
 128 
               <tr>
137 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 - 
 
138 
                  <td nowrap width="100%">&nbsp; </td>
 - 
 
139 
               </tr>
 - 
 
140 
               <tr>
 - 
 
141 
                  <td width="1%">&nbsp;</td>
 - 
 
142 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
 129 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
143 
                     <textarea name="obsolete_comments" class="form_item" cols="60" rows="10"><%=Format4HTML(Get_Comments( parPv_id ))%></textarea>
 130 
                     <textarea name="obsolete_comments" class="form_item" cols="60" rows="10"><%=Format4HTML(Get_Comments( parPv_id ))%></textarea>
144 
 
 131 
 
145 
                     <input type="hidden" name="pv_id" value="<%=parPv_id%>">
 132 
                     <input type="hidden" name="pv_id" value="<%=parPv_id%>">
146 
                     <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 133 
                     <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
147 
                     <input type="hidden" name="rfile" value="<%=Request("rfile")%>">
 134 
                     <input type="hidden" name="rfile" value="<%=Request("rfile")%>">
148 
                     <input type="hidden" name="action" value="true">
 135 
                     <input type="hidden" name="action" value="true">
149 
                  </td>
 136 
                  </td>
150 
               </tr>
 137 
               </tr>
151 
               <tr>
 138 
               <tr>
152 
                  <td width="1%"></td>
 - 
 
153 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
 139 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
154 
                     Patch Obsoleted By:
 140 
                     Patch Obsoleted By:
155 
                     <%
 141 
                     <%
156 
                     Dim rsQry
 142 
                     Dim rsQry
157 
 
 143 
 
Line 176... Line 162...
176 
                     Set rsQry = nothing
 162 
                     Set rsQry = nothing
177 
                     %>
 163 
                     %>
178 
                     </select>
 164 
                     </select>
179 
                  </td>
 165 
                  </td>
180 
               </tr>
 166 
               </tr>
181 
               <tr>
 - 
 
182 
                  <td width="1%">&nbsp;</td>
 - 
 
183 
                  <td nowrap width="100%">
 - 
 
184 
                     <p>&nbsp;</p>
 - 
 
185 
                  </td>
 - 
 
186 
               </tr>
 - 
 
187 
            </table>
 167 
            </table>
188 
         </td>
 168 
         </td>
189 
      </tr>
 169 
      </tr>
190 
      <tr>
 170 
      <tr>
- 
 
 171 
         <td align="right">
191 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 172 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
192 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 173 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
- 
 
 174 
         </td>
193 
      </tr>
 175 
      </tr>
194 
   </table>
 176 
   </table>
195 
<%
 177 
<%
196 
Call objFormComponent.FormEnd()
 178 
Call objFormComponent.FormEnd()
197 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 179 
'-- FROM END ----------------------------------------------------------------------------------------------------------------