Subversion Repositories DevTools

Rev

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

Rev 15 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wEditBaseEnv				 	 |
 5 
'|			          wEditBaseEnv				 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim parBos_id
 24 
Dim parBos_id
25 
Dim parBase_env_id
 25 
Dim parBase_env_id
26 
Dim objFormCollector
 26 
Dim objFormCollector
27 
'------------ CONSTANTS DECLARATION -----------
 27 
'------------ CONSTANTS DECLARATION -----------
28 
'------------ VARIABLE INIT -------------------
 28 
'------------ VARIABLE INIT -------------------
29 
parBos_id = Request("bos_id")
 29 
parBos_id = Request("bos_id")
30 
parBase_env_id = Request("base_env_id")
 30 
parBase_env_id = Request("base_env_id")
31 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 31 
Set objFormCollector = CreateObject("Scripting.Dictionary")
32 
'------------ CONDITIONS ----------------------
 32 
'------------ CONDITIONS ----------------------
33 
'----------------------------------------------
 33 
'----------------------------------------------
34 
%>
 34 
%>
35 
<%
 35 
<%
36 
'--------------------------------------------------------------------------------------------------------------------------
 36 
'--------------------------------------------------------------------------------------------------------------------------
37 
Sub GetFormDetails ( nBaseEnvId, ByRef outobjDetails )
 37 
Sub GetFormDetails ( nBaseEnvId, ByRef outobjDetails )
38 
	Dim rsQry, query
 38 
	Dim rsQry, query
39
39
40 
	If nBaseEnvId = "" Then Exit Sub
 40 
	If nBaseEnvId = "" Then Exit Sub
41
41
42 
	OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
42 
	OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
43
43
44 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BaseEnvDetails.sql") , ORADYN_DEFAULT )
 44 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BaseEnvDetails.sql") , ORADYN_DEFAULT )
45
45
46 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 46 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
47 
		outobjDetails.Item ("base_env_id")   = rsQry("base_env_id")
 47 
		outobjDetails.Item ("base_env_id")   = rsQry("base_env_id")
48 
		outobjDetails.Item ("base_env_name") = rsQry("base_env_name")
 48 
		outobjDetails.Item ("base_env_name") = rsQry("base_env_name")
49 
		outobjDetails.Item ("bom_id") = rsQry("bom_id")
 49 
		outobjDetails.Item ("bom_id") = rsQry("bom_id")
50 
		outobjDetails.Item ("bos_id") = rsQry("bos_id")
 50 
		outobjDetails.Item ("bos_id") = rsQry("bos_id")
51
51
52 
	Else
 52 
	Else
53 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBaseEnvId="& nBaseEnvId
 53 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBaseEnvId="& nBaseEnvId
54
54
55 
	End If
 55 
	End If
56
56
57 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 57 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
58
58
59 
	rsQry.Close
 59 
	rsQry.Close
60 
	Set rsQry = Nothing
 60 
	Set rsQry = Nothing
61 
 
 61 
 
62
62
63 
End Sub
 63 
End Sub
64 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
65 
Function GetBaseOsTypes( nBos_id )
 65 
Function GetBaseOsTypes( nBos_id )
66 
	Dim rsQry, query
 66 
	Dim rsQry, query
67 
	OraDatabase.Parameters.Add "BOS_ID", nBos_id,		ORAPARM_INPUT, ORATYPE_NUMBER
67 
	OraDatabase.Parameters.Add "BOS_ID", nBos_id,		ORAPARM_INPUT, ORATYPE_NUMBER
68
68
69 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsTypesCombo.sql"), ORADYN_DEFAULT )
 69 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsTypesCombo.sql"), ORADYN_DEFAULT )
70
70
71 
	If rsQry.RecordCount > 0 Then
 71 
	If rsQry.RecordCount > 0 Then
72 
		GetBaseOsTypes = rsQry.GetRows()
 72 
		GetBaseOsTypes = rsQry.GetRows()
73
73
74 
	Else
 74 
	Else
75 
		GetBaseOsTypes = NULL
 75 
		GetBaseOsTypes = NULL
76
76
77 
	End If
 77 
	End If
78
78
79 
	OraDatabase.Parameters.Remove "BOS_ID"
 79 
	OraDatabase.Parameters.Remove "BOS_ID"
80
80
81 
	rsQry.Close
 81 
	rsQry.Close
82 
	Set rsQry = Nothing
 82 
	Set rsQry = Nothing
83 
End Function
 83 
End Function
84 
'--------------------------------------------------------------------------------------------------------------------------
 84 
'--------------------------------------------------------------------------------------------------------------------------
85 
Sub UpdateBaseEnv ()
 85 
Sub UpdateBaseEnv ()
86 
	On Error Resume Next
 86 
	On Error Resume Next
87
87
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 89 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
90 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
91 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
91 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
93
93
94 
	objEH.TryORA ( OraSession )
 94 
	objEH.TryORA ( OraSession )
95
95
96 
	OraDatabase.ExecuteSQL _
 96 
	OraDatabase.ExecuteSQL _
97 
	"BEGIN   pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID, :OS_ID, :USER_ID );   END;"
 97 
	"BEGIN   pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID, :OS_ID, :USER_ID );   END;"
98
98
99 
	objEH.CatchORA ( OraSession )
 99 
	objEH.CatchORA ( OraSession )
100
100
101
101
102 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 102 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
103 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
 103 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
104 
	OraDatabase.Parameters.Remove "BOS_ID"
 104 
	OraDatabase.Parameters.Remove "BOS_ID"
105 
	OraDatabase.Parameters.Remove "OS_ID"
 105 
	OraDatabase.Parameters.Remove "OS_ID"
106 
	OraDatabase.Parameters.Remove "USER_ID"
106 
	OraDatabase.Parameters.Remove "USER_ID"
107
107
108 
End Sub
 108 
End Sub
109 
'--------------------------------------------------------------------------------------------------------------------------
 109 
'--------------------------------------------------------------------------------------------------------------------------
110 
Sub AddBaseEnv ()
 110 
Sub AddBaseEnv ()
111 
	On Error Resume Next
 111 
	On Error Resume Next
112
112
113 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 113 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
114 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
114 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
117 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
117 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
118
118
119 
	objEH.TryORA ( OraSession )
 119 
	objEH.TryORA ( OraSession )
120
120
121 
	OraDatabase.ExecuteSQL _
 121 
	OraDatabase.ExecuteSQL _
122 
	"BEGIN   pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID, :USER_ID );   END;"
 122 
	"BEGIN   pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID, :USER_ID );   END;"
123
123
124 
	objEH.CatchORA ( OraSession )
 124 
	objEH.CatchORA ( OraSession )
125
125
126
126
127 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
 127 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
128 
	OraDatabase.Parameters.Remove "BOS_ID"
 128 
	OraDatabase.Parameters.Remove "BOS_ID"
129 
	OraDatabase.Parameters.Remove "BOM_ID"
 129 
	OraDatabase.Parameters.Remove "BOM_ID"
130 
	OraDatabase.Parameters.Remove "OS_ID"
 130 
	OraDatabase.Parameters.Remove "OS_ID"
131 
	OraDatabase.Parameters.Remove "USER_ID"
 131 
	OraDatabase.Parameters.Remove "USER_ID"
132
132
133
133
134 
End Sub
 134 
End Sub
135 
'--------------------------------------------------------------------------------------------------------------------------
 135 
'--------------------------------------------------------------------------------------------------------------------------
136 
%>
 136 
%>
137 
<%
 137 
<%
138 
'------------ RUN BEFORE PAGE RENDER ----------
 138 
'------------ RUN BEFORE PAGE RENDER ----------
139 
' --- Get Form details from DB ---
 139 
' --- Get Form details from DB ---
140 
Call GetFormDetails ( parBase_env_id, objFormCollector )
 140 
Call GetFormDetails ( parBase_env_id, objFormCollector )
141 
 
 141 
 
142 
' --- Load Validation Rules ---
 142 
' --- Load Validation Rules ---
143 
Call objForm.LoadValidationRules ( Array("base_env_name"), OraDatabase )		' Load Validation Rules
 143 
Call objForm.LoadValidationRules ( Array("base_env_name"), OraDatabase )		' Load Validation Rules
144 
 
 144 
 
145 
' --- Enter Form Validation Rule Changes here... ----
 145 
' --- Enter Form Validation Rule Changes here... ----
146 
'----------------------------------------------------
 146 
'----------------------------------------------------
147 
 
 147 
 
148 
' --- RUN onPostBack ---
 148 
' --- RUN onPostBack ---
149 
If Request("action") <> "" Then
 149 
If Request("action") <> "" Then
150 
	If objForm.IsValidOnPostBack Then
 150 
	If objForm.IsValidOnPostBack Then
151 
		' --- Form is Valid ---
 151 
		' --- Form is Valid ---
152 
		If parBase_env_id <> "" Then
 152 
		If parBase_env_id <> "" Then
153 
			Call UpdateBaseEnv()
 153 
			Call UpdateBaseEnv()
154 
		Else
 154 
		Else
155 
			Call AddBaseEnv()
 155 
			Call AddBaseEnv()
156 
		End If
 156 
		End If
157
157
158 
		If objEH.Finally Then
 158 
		If objEH.Finally Then
159 
			Call OpenInParentWindow ( Request("rfile") &"?ADD=OK"& objPMod.ComposeURLWithout("rfile") )
 159 
			Call OpenInParentWindow ( Request("rfile") &"?ADD=OK"& objPMod.ComposeURLWithout("rfile") )
160 
			Call CloseWindow()
 160 
			Call CloseWindow()
161 
		End If
 161 
		End If
162
162
163 
	End If
 163 
	End If
164 
End If
 164 
End If
165 
 
 165 
 
166 
'----------------------------------------------
 166 
'----------------------------------------------
167 
%>
 167 
%>
168 
<html>
 168 
<html>
169 
<head>
 169 
<head>
170 
<title>Deployment Manager</title>
 170 
<title>Deployment Manager</title>
171 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 171 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
172 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 172 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
173 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 173 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
174 
<script language="JavaScript" src="scripts/common.js"></script>
 174 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
175 
</head>
 175 
<script language="JavaScript" src="scripts/common.js"></script>
176 
 
 176 
</head>
177 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bos_id.focus();">
 177 
 
178 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 178 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bos_id.focus();">
179 
  <tr>
 179 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
180 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Base Configuration</span> <br>
 180 
  <tr>
181 
    Enter OS type and Base Configuration Name.
181 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Base Configuration</span> <br>
182 
      </td>
 182 
    Enter OS type and Base Configuration Name.
183 
  </tr>
 183 
      </td>
184 
  <%
 184 
  </tr>
185 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 185 
  <%
186 
  objFormComponent.FormName = "FormName"
 186 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
187 
  objFormComponent.Action = SCRIPT_NAME
 187 
  objFormComponent.FormName = "FormName"
188 
  objFormComponent.OnSubmit = "ShowProgress();"
 188 
  objFormComponent.Action = SCRIPT_NAME
189 
  Call objFormComponent.FormStart()
 189 
  objFormComponent.OnSubmit = "ShowProgress();"
190 
  %>
190 
  Call objFormComponent.FormStart()
191 
  <tr>
 191 
  %>
192 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 192 
  <tr>
193 
      <tr>
 193 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
194 
        <td><%=ProgressBar()%></td>
 194 
      <tr>
195 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 195 
        <td><%=ProgressBar()%></td>
196 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 196 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
197 
      </tr>
 197 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
198 
    </table></td>
 198 
      </tr>
199 
  </tr>
 199 
    </table></td>
200
200 
  </tr>
201 
  <tr>
 201
202 
    <td>
 202 
  <tr>
203 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
203 
    <td>
204 
	<!--#include file="messages/_msg_inline.asp"-->
 204 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
205 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 205 
	<!--#include file="messages/_msg_inline.asp"-->
206 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 206 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
207 
	  <tr>
 207 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
208 
        <td valign="top" nowrap class="form_iname">Operating System Type</td>
 208 
	  <tr>
209 
        <td valign="top" class="body_txt"><%=objFormComponent.Combo ( "bos_id", GetBaseOsTypes( objForm.GetValue( "bos_id", objFormCollector.Item("bos_id") )  ), FALSE, "class='form_ivalue'" )%></td>
 209 
        <td valign="top" nowrap class="form_iname">Operating System Type</td>
210 
		<td valign="top"></td>
 210 
        <td valign="top" class="body_txt"><%=objFormComponent.Combo ( "bos_id", GetBaseOsTypes( objForm.GetValue( "bos_id", objFormCollector.Item("bos_id") )  ), FALSE, "class='form_ivalue'" )%></td>
211 
      </tr>
 211 
		<td valign="top"></td>
212 
	  <tr>
 212 
      </tr>
213 
        <td nowrap class="form_iname" valign="top">Base Configuration Name </td>
 213 
	  <tr>
214 
        <td valign="top"><%=objFormComponent.TextBox ( "base_env_name", objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), "size='50' class='form_ivalue'" )%></td>
 214 
        <td nowrap class="form_iname" valign="top">Base Configuration Name </td>
215 
        <td valign="top"><%=objForm.Validate ("base_env_name")%></td>
 215 
        <td valign="top"><%=objFormComponent.TextBox ( "base_env_name", objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), "size='50' class='form_ivalue'" )%></td>
216 
      </tr>
 216 
        <td valign="top"><%=objForm.Validate ("base_env_name")%></td>
217 
      <tr>
 217 
      </tr>
218 
        <td width="10%" class="form_iname">&nbsp;</td>
 218 
      <tr>
219 
        <td width="1%">&nbsp;</td>
 219 
        <td width="10%" class="form_iname">&nbsp;</td>
220 
		<td width="90%" class="val_err"></td>
 220 
        <td width="1%">&nbsp;</td>
221 
      </tr>
 221 
		<td width="90%" class="val_err"></td>
222 
    </table></td>
 222 
      </tr>
223 
  </tr>
 223 
    </table></td>
224 
  <%=objPMod.ComposeHiddenTags()%>
 224 
  </tr>
225 
  <input type="hidden" name="base_env_id" value="<%=parBase_env_id%>">
 225 
  <%=objPMod.ComposeHiddenTags()%>
226 
  <input type="hidden" name="action" value="true">
 226 
  <input type="hidden" name="base_env_id" value="<%=parBase_env_id%>">
227 
  <%
 227 
  <input type="hidden" name="action" value="true">
228 
  Call objFormComponent.FormEnd()
 228 
  <%
229 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 229 
  Call objFormComponent.FormEnd()
230 
  %>
 230 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
231 
</table>
 231 
  %>
232 
</body>
 232 
</table>
233 
</html>
 233 
</body>
234 
<%
 234 
</html>
235 
'------------ RUN AFTER PAGE RENDER -----------
 235 
<%
236 
'----------------------------------------------
 236 
'------------ RUN AFTER PAGE RENDER -----------
237 
%><!--#include file="common/globals_destructor.asp"-->
 237 
'----------------------------------------------
- 
 
 238 
%><!--#include file="common/globals_destructor.asp"-->