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 
'					Patch Install Order
 8 
'               Patch Install Order
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/qstr.asp"-->
 13 
<!--#include file="common/qstr.asp"-->
Line 35... Line 35...
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------
39 
Function GetInstallOrderList ( nPatchId )
 39 
Function GetInstallOrderList ( nPatchId )
40 
	Dim rsQry, query
 40 
   Dim rsQry, query
41
41 
 
42 
	OraDatabase.Parameters.Add "PATCH_ID",  nPatchId,	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "PATCH_ID",  nPatchId,   ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "PV_ID",  parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
   OraDatabase.Parameters.Add "PV_ID",  parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
44
- 
 
45
44 
 
46 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("PatchInstallOrderList.sql"), ORADYN_DEFAULT )
 45 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("PatchInstallOrderList.sql"), ORADYN_DEFAULT )
47 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 46 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
48 
		GetInstallOrderList = rsQry.GetRows()
 47 
      GetInstallOrderList = rsQry.GetRows()
49
- 
 
50 
	Else
 48 
   Else
51 
		GetInstallOrderList = NULL
 49 
      GetInstallOrderList = NULL
52
- 
 
53 
	End If
 50 
   End If
54
51 
 
55 
	rsQry.Close
 52 
   rsQry.Close
56 
	Set rsQry = Nothing
 53 
   Set rsQry = Nothing
57
54 
 
58 
	OraDatabase.Parameters.Remove "PATCH_ID"
 55 
   OraDatabase.Parameters.Remove "PATCH_ID"
59 
	OraDatabase.Parameters.Remove "PV_ID"
 56 
   OraDatabase.Parameters.Remove "PV_ID"
60 
End Function
 57 
End Function
61 
'--------------------------------------------------------------------------------------------------------------------------
 58 
'--------------------------------------------------------------------------------------------------------------------------
62 
Sub UpdateInstallOrder ()
 59 
Sub UpdateInstallOrder ()
63
60 
 
64 
	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
65 
	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
66 
	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 
 
- 
 
 65 
   objEH.TryORA ( OraSession )
- 
 
 66 
   On Error Resume Next
67
67 
 
68 
	OraDatabase.ExecuteSQL _
 68 
   OraDatabase.ExecuteSQL _
69 
	"BEGIN Shift_Install_Order ( :PATCH_ID, :PV_ID, :INSTALL_ORDER );  END;"
69 
   "BEGIN Shift_Install_Order ( :PATCH_ID, :PV_ID, :INSTALL_ORDER );  END;"
- 
 
 70 
 
- 
 
 71 
   objEH.CatchORA ( OraSession )
70
72 
 
71 
	OraDatabase.Parameters.Remove "PV_ID"
 73 
   OraDatabase.Parameters.Remove "PV_ID"
72 
	OraDatabase.Parameters.Remove "PATCH_ID"
 74 
   OraDatabase.Parameters.Remove "PATCH_ID"
73 
	OraDatabase.Parameters.Remove "INSTALL_ORDER"
 75 
   OraDatabase.Parameters.Remove "INSTALL_ORDER"
74
76 
 
75 
End Sub
 77 
End Sub
76 
'-----------------
 78 
'-----------------
77 
'--------------------------------------------------------------------------------------------------------------------------
 79 
'--------------------------------------------------------------------------------------------------------------------------
78 
%>
 80 
%>
79 
<%
 81 
<%
80 
'Process submition
 82 
'Process submition
81 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn  Then
 83 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn  Then
82 
	Call UpdateInstallOrder ()
 84 
   Call UpdateInstallOrder ()
83
85 
 
84 
	Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 86 
   Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
85 
	Call CloseWindow
 87 
   Call CloseWindow
86
- 
 
87
- 
 
88 
End If
 88 
End If
89 
%>
 89 
%>
90 
<%
 90 
<%
91 
Call Get_Pkg_Info ( parPatchId, parRtag_id )
 91 
Call Get_Pkg_Info ( parPatchId, parRtag_id )
92 
%>
 92 
%>
Line 107... Line 107...
107 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 107 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
108 
objFormComponent.FormName = "FormSearch"
 108 
objFormComponent.FormName = "FormSearch"
109 
objFormComponent.Action = scriptName
 109 
objFormComponent.Action = scriptName
110 
Call objFormComponent.FormStart()
 110 
Call objFormComponent.FormStart()
111 
%>
 111 
%>
112 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 112 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
113 
    <tr>
113 
      <tr>
114 
      <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>
 114 
         <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>
115 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Change Install Order</td>
 115 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Change Install Order</td>
116 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
116 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
117 
        <input type="submit" name="btn" value="Update" class="form_btn_comp">
 117 
            <input type="submit" name="btn" value="Update" class="form_btn_comp">
118 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 118 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
119 
      </td>
 119 
         </td>
120 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
120 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
121 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 121 
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
122 
    </tr>
 122 
      </tr>
123 
    <tr>
123 
      <tr>
124 
      <td height="100%" width="1%">&nbsp;</td>
 124 
         <td height="100%" width="1%">&nbsp;</td>
125 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
125 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
126 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 126 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
127 
          <tr>
127 
            <tr>
128 
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 128 
               <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
129 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
 129 
               <td width="1%" nowrap class="form_group" valign="bottom"></td>
130 
            <td nowrap width="100%">&nbsp; </td>
 130 
               <td nowrap width="100%">&nbsp; </td>
131 
          </tr>
 131 
            </tr>
132 
          <tr>
132 
            <tr>
133 
            <td width="1%">&nbsp;</td>
 133 
               <td width="1%">&nbsp;</td>
134 
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Patch</td>
 134 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Patch</td>
135 
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
135 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
136 
              <%=pkgInfoHash.Item ("pkg_version")%></td>
 136 
               <%=pkgInfoHash.Item ("pkg_version")%></td>
137 
          </tr>
 137 
            </tr>
138 
          <tr>
138 
            <tr>
139 
            <td width="1%">&nbsp;</td>
 139 
               <td width="1%">&nbsp;</td>
140 
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Install Order</td>
 140 
               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Install Order</td>
141 
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
 141 
               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
142 
			<%=objFormComponent.Combo ( "install_order", GetInstallOrderList( parPatchId ), FALSE, "class='form_item'" )%>
 142 
                  <%=objFormComponent.Combo ( "install_order", GetInstallOrderList( parPatchId ), FALSE, "class='form_item'" )%>
143 
			<input type="hidden" name="pv_id" value="<%=parPv_id%>">
 143 
                  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
144 
			<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 144 
                  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
145 
			<input type="hidden" name="patch_id" value="<%=parPatchId%>">
 145 
                  <input type="hidden" name="patch_id" value="<%=parPatchId%>">
146 
			<input type="hidden" name="action" value="true">
 146 
                  <input type="hidden" name="action" value="true">
147 
            </td>
 147 
               </td>
148 
          </tr>
 148 
            </tr>
149 
          <tr>
149 
            <tr>
150 
            <td width="1%">&nbsp;</td>
 150 
               <td width="1%">&nbsp;</td>
151 
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
 151 
               <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
152 
            <td nowrap width="100%">
152 
               <td nowrap width="100%">
153 
              <p>&nbsp;</p>
 153 
                  <p>&nbsp;</p>
154 
            </td>
 154 
               </td>
155 
          </tr>
 155 
            </tr>
156 
        </table>
 156 
         </table>
157 
      </td>
 157 
         </td>
158 
    </tr>
 158 
      </tr>
159 
    <tr>
 159 
      <tr>
160 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 160 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
161 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 161 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
162 
    </tr>
 162 
      </tr>
163 
  </table>
 163 
   </table>
164 
<%
 164 
<%
165 
Call objFormComponent.FormEnd()
 165 
Call objFormComponent.FormEnd()
166 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 166 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
167 
%>
 167 
%>
168 
<!-- TIPS LAYERS -------------------------------------->
 168 
<!-- TIPS LAYERS -------------------------------------->
Line 171... Line 171...
171 
</body>
 171 
</body>
172 
</html>
 172 
</html>
173 
 
 173 
 
174 
 
 174 
 
175 
<!-- DESTRUCTOR ------->
 175 
<!-- DESTRUCTOR ------->
176 
<!--#include file="common/destructor.asp"-->
 - 
 
177 

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

          

          

            -
            
 

            177