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 60... Line 60...
60 
 
 60 
 
61 
   OraDatabase.Parameters.Add "PV_ID",          Request("pv_id"),          ORAPARM_INPUT, ORATYPE_NUMBER
 61 
   OraDatabase.Parameters.Add "PV_ID",          Request("pv_id"),          ORAPARM_INPUT, ORATYPE_NUMBER
62 
   OraDatabase.Parameters.Add "PATCH_ID",       Request("patch_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
 62 
   OraDatabase.Parameters.Add "PATCH_ID",       Request("patch_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
63 
   OraDatabase.Parameters.Add "INSTALL_ORDER",  Request("install_order"),  ORAPARM_INPUT, ORATYPE_NUMBER
 63 
   OraDatabase.Parameters.Add "INSTALL_ORDER",  Request("install_order"),  ORAPARM_INPUT, ORATYPE_NUMBER
64 
 
 64 
 
- 
 
 65 
   objEH.ErrorRedirect = FALSE
65 
   objEH.TryORA ( OraSession )
 66 
   objEH.TryORA ( OraSession )
66 
   On Error Resume Next
 67 
   On Error Resume Next
67 
 
 68 
 
68 
   OraDatabase.ExecuteSQL _
 69 
   OraDatabase.ExecuteSQL _
69 
   "BEGIN Shift_Install_Order ( :PATCH_ID, :PV_ID, :INSTALL_ORDER );  END;"
 70 
   "BEGIN Shift_Install_Order ( :PATCH_ID, :PV_ID, :INSTALL_ORDER );  END;"
Line 79... Line 80...
79 
'--------------------------------------------------------------------------------------------------------------------------
 80 
'--------------------------------------------------------------------------------------------------------------------------
80 
%>
 81 
%>
81 
<%
 82 
<%
82 
'Process submition
 83 
'Process submition
83 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn  Then
 84 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn  Then
84 
   Call UpdateInstallOrder ()
 85 
    Call UpdateInstallOrder ()
85 
 
 - 
 
- 
 
 86 
    If objEH.Finally Then
86 
   Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 87 
        Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
87 
   Call CloseWindow
 88 
    End If
88 
End If
 89 
End If
89 
%>
 90 
%>
90 
<%
 91 
<%
91 
Call Get_Pkg_Info ( parPatchId, parRtag_id )
 92 
Call Get_Pkg_Info ( parPatchId, parRtag_id )
92 
%>
 93 
%>
Line 105... Line 106...
105 
 
 106 
 
106 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 107 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
107 
<%
 108 
<%
108 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 109 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
109 
objFormComponent.FormName = "FormSearch"
 110 
objFormComponent.FormName = "FormSearch"
- 
 
 111 
objFormComponent.FormClass = "form_tight"
110 
objFormComponent.Action = scriptName
 112 
objFormComponent.Action = scriptName
111 
Call objFormComponent.FormStart()
 113 
Call objFormComponent.FormStart()
112 
%>
 114 
%>
113 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 115 
   <table width="100%" border="0" cellspacing="0" cellpadding="2">
114 
      <tr>
 - 
 
115 
         <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>
 - 
 
116 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Change Install Order</td>
 - 
 
117 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 - 
 
118 
            <input type="submit" name="btn" value="Update" class="form_btn_comp">
 - 
 
119 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 - 
 
120 
         </td>
 - 
 
121 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
 - 
 
122 
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 - 
 
123 
      </tr>
 - 
 
124 
      <tr>
 116 
      <tr>
125 
         <td height="100%" width="1%">&nbsp;</td>
 - 
 
126 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 117 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
- 
 
 118 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 119 
        <!--#include file="messages/_msg_inline.asp"-->
- 
 
 120 
        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
127 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
 121 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
128 
            <tr>
 122 
            <tr>
129 
               <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 - 
 
130 
               <td width="1%" nowrap class="form_group" valign="bottom"></td>
 - 
 
131 
               <td nowrap width="100%">&nbsp; </td>
 - 
 
132 
            </tr>
 - 
 
133 
            <tr>
 - 
 
134 
               <td width="1%">&nbsp;</td>
 - 
 
135 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Patch</td>
 123 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Patch</td>
136 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
 124 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
137 
               <%=pkgInfoHash.Item ("pkg_version")%></td>
 125 
               <%=pkgInfoHash.Item ("pkg_version")%></td>
138 
            </tr>
 126 
            </tr>
139 
            <tr>
 127 
            <tr>
140 
               <td width="1%">&nbsp;</td>
 - 
 
141 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Install Order</td>
 128 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Install Order</td>
142 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
 129 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
143 
                  <%=objFormComponent.Combo ( "install_order", GetInstallOrderList( parPatchId ), FALSE, "class='form_item'" )%>
 130 
                  <%=objFormComponent.Combo ( "install_order", GetInstallOrderList( parPatchId ), FALSE, "class='form_item'" )%>
144 
                  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
 131 
                  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
145 
                  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 132 
                  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
146 
                  <input type="hidden" name="patch_id" value="<%=parPatchId%>">
 133 
                  <input type="hidden" name="patch_id" value="<%=parPatchId%>">
147 
                  <input type="hidden" name="action" value="true">
 134 
                  <input type="hidden" name="action" value="true">
148 
               </td>
 135 
               </td>
149 
            </tr>
 136 
            </tr>
150 
            <tr>
 - 
 
151 
               <td width="1%">&nbsp;</td>
 - 
 
152 
               <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
 - 
 
153 
               <td nowrap width="100%">
 - 
 
154 
                  <p>&nbsp;</p>
 - 
 
155 
               </td>
 - 
 
156 
            </tr>
 - 
 
157 
         </table>
 137 
         </table>
158 
         </td>
 138 
         </td>
159 
      </tr>
 139 
      </tr>
160 
      <tr>
 140 
      <tr>
- 
 
 141 
         <td align="right">
161 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 142 
            <input type="submit" name="btn" value="Update" class="form_btn_comp">
162 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 143 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
- 
 
 144 
         </td>
163 
      </tr>
 145 
      </tr>
164 
   </table>
 146 
   </table>
165 
<%
 147 
<%
166 
Call objFormComponent.FormEnd()
 148 
Call objFormComponent.FormEnd()
167 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 149 
'-- FROM END ----------------------------------------------------------------------------------------------------------------