Subversion Repositories DevTools

Rev

Rev 5961 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wEditOs					 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim parBos_id
24 
Dim parOs_id_list
25 
Dim rsQry
26 
Dim objFormCollector
27 
Dim objBomCollector
28 
'------------ CONSTANTS DECLARATION -----------
29 
'------------ VARIABLE INIT -------------------
30 
 
31 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
32 
parNode_id = dbPARnode_id
33 
 
34 
parBos_id = Request("bos_id")
35 
parOs_id_list = Request("os_id_list")
36 
Set objFormCollector = CreateObject("Scripting.Dictionary")
37 
Set objBomCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
40 
%>
41 
<%
42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( ByRef outobjDetails )
44 
	Dim rsQry, query
45 
 
46 
	If parOs_id_list <> "" Then
47 
 
48 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id_list, ORAPARM_INPUT, ORATYPE_NUMBER
49 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsDetails.sql"), ORADYN_DEFAULT )
5961 dpurdie 50 
		OraDatabase.Parameters.Remove "OS_ID"
5355 dpurdie 51 
 
52 
		If rsQry.RecordCount > 0 Then
53 
			outobjDetails.Item ("os_id")   = rsQry("os_id")
54 
			outobjDetails.Item ("os_name") = rsQry("os_name")
55 
			outobjDetails.Item ("os_comments") = rsQry("os_comments")
56 
			outobjDetails.Item ("node_spec_file") = rsQry("node_spec_file")
57 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
58 
			outobjDetails.Item ("base_env_name") = rsQry("base_env_name")
59 
			outobjDetails.Item ("not_xml") = rsQry("not_xml")
60 
 
61 
		Else
62 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nOs_id="& nOs_id
63 
 
64 
		End If
65 
 
66 
		rsQry.Close
67 
		Set rsQry = Nothing
68 
 
69 
	End If
70 
 
71 
	If Request("bos_id") <> "" Then
72 
 
73 
		OraDatabase.Parameters.Add "BOS_ID", Request("bos_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
74 
 
75 
		query = _
76 
		" SELECT bt.BOS_TYPE"&_
77 
		"  FROM BOS_TYPES bt"&_
78 
		" WHERE bt.BOS_ID = :BOS_ID"
79 
 
80 
		Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
81 
 
82 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
83 
			outobjDetails.Item ("base_env_name")   = rsQry("bos_type") &" Base Configuration"
84 
 
85 
		End If
86 
		OraDatabase.Parameters.Remove "BOS_ID"
87 
 
88 
		rsQry.Close
89 
		Set rsQry = Nothing
90 
	End If
91 
 
92 
End Sub
93 
'--------------------------------------------------------------------------------------------------------------------------
94 
Function GetBaseEnv ( nBaseEnvName, nBom_id )
95 
	Dim rsQry, query
96 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", 	nBaseEnvName,			ORAPARM_INPUT, ORATYPE_VARCHAR2
98 
 
99 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomBaseEnvCombo.sql"), ORADYN_DEFAULT )
100 
 
101 
	If rsQry.RecordCount > 0 Then
102 
		GetBaseEnv = rsQry.GetRows()
103 
 
104 
	Else
105 
		GetBaseEnv = NULL
106 
 
107 
	End If
108 
 
109 
	OraDatabase.Parameters.Remove "BOM_ID"
110 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
111 
 
112 
	rsQry.Close
113 
	Set rsQry = Nothing
114 
End Function
115 
'--------------------------------------------------------------------------------------------------------------------------
116 
Sub AddOs ()
117 
	On Error Resume Next
118 
 
119 
	OraDatabase.Parameters.Add "OS_NAME", 		Request("os_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
120 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
121 
	OraDatabase.Parameters.Add "OS_COMMENTS", 	Request("os_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
122 
	OraDatabase.Parameters.Add "NODE_SPEC_FILE", 	Request("node_spec_file"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
123 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
124 
	OraDatabase.Parameters.Add "NODE_ID", 		Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
125 
	OraDatabase.Parameters.Add "BOS_ID", 		Request("bos_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
126 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
127 
 
128 
	objEH.TryORA ( OraSession )
129 
 
130 
	OraDatabase.ExecuteSQL _
131 
	"BEGIN   pk_Operating_System.Add_Os ( :OS_NAME, :OS_COMMENTS, :NODE_SPEC_FILE, :NOT_XML, :NODE_ID, :BASE_ENV_NAME, :BOS_ID, :USER_ID );   END;"
132 
 
133 
	objEH.CatchORA ( OraSession )
134 
 
135 
 
136 
	OraDatabase.Parameters.Remove "OS_NAME"
137 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
138 
	OraDatabase.Parameters.Remove "OS_COMMENTS"
139 
	OraDatabase.Parameters.Remove "NODE_SPEC_FILE"
140 
	OraDatabase.Parameters.Remove "NOT_XML"
141 
	OraDatabase.Parameters.Remove "NODE_ID"
142 
	OraDatabase.Parameters.Remove "BOS_ID"
143 
	OraDatabase.Parameters.Remove "USER_ID"
144 
 
145 
End Sub
146 
'--------------------------------------------------------------------------------------------------------------------------
147 
Sub UpdateOs ()
148 
	On Error Resume Next
149 
 
150 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id_list"), 		ORAPARM_INPUT, ORATYPE_NUMBER
151 
	OraDatabase.Parameters.Add "OS_NAME", 		Request("os_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
152 
	OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
153 
	OraDatabase.Parameters.Add "OS_COMMENTS", 	Request("os_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
154 
	OraDatabase.Parameters.Add "NODE_SPEC_FILE", 	Request("node_spec_file"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
155 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
156 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
157 
 
158 
	objEH.TryORA ( OraSession )
159 
 
160 
	OraDatabase.ExecuteSQL _
161 
	"BEGIN   pk_Operating_System.Update_Os ( :OS_ID, :OS_NAME, :OS_COMMENTS, :BASE_ENV_NAME, :NODE_SPEC_FILE, :NOT_XML, :USER_ID );   END;"
162 
 
163 
	objEH.CatchORA ( OraSession )
164 
 
165 
 
166 
	OraDatabase.Parameters.Remove "OS_ID"
167 
	OraDatabase.Parameters.Remove "OS_NAME"
168 
	OraDatabase.Parameters.Remove "BASE_ENV_NAME"
169 
	OraDatabase.Parameters.Remove "OS_COMMENTS"
170 
	OraDatabase.Parameters.Remove "NODE_SPEC_FILE"
171 
	OraDatabase.Parameters.Remove "NOT_XML"
172 
	OraDatabase.Parameters.Remove "USER_ID"
173 
 
174 
End Sub
175 
'--------------------------------------------------------------------------------------------------------------------------
176 
%>
177 
<%
178 
'------------ RUN BEFORE PAGE RENDER ----------
179 
Call GetBomDetails ( Request("bom_id"), objBomCollector )
180 
 
181 
' --- Get Form details from DB ---
182 
Call GetFormDetails ( objFormCollector )
183 
 
184 
' --- Load Validation Rules ---
185 
Call objForm.LoadValidationRules ( Array("os_name","os_comments","base_env_name"), OraDatabase )		' Load Validation Rules
186 
 
187 
' --- Enter Form Validation Rule Changes here... ----
188 
Call objForm.UpdateRules ( "id='base_env_name' IsRequired='N'" )	' base_env_name is not required in this instance
189 
'----------------------------------------------------
190 
 
191 
' --- RUN onPostBack ---
192 
If Request("action") <> "" Then
193 
	If objForm.IsValidOnPostBack Then
194 
		' --- Form is Valid ---
195 
		If parOs_id_list <> "" Then
196 
			Call UpdateOs()
197 
		Else
198 
			Call AddOs()
199 
		End If
200 
 
201 
 
202 
		If objEH.Finally Then
203 
			Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
204 
			Call CloseWindow()
205 
		End If
206 
 
207 
	End If
208 
End If
209 
 
210 
'----------------------------------------------
211 
%>
212 
<html>
213 
<head>
214 
<title>Deployment Manager</title>
215 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
216 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
217 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 218 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
219 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 220 
</head>
221 
 
222 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.os_name.focus();">
223 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
224 
  <tr>
225 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Operating System</span> <br>
226 
    Enter OS name and optional comments.
227 
      </td>
228 
  </tr>
229 
  <%
230 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
231 
  objFormComponent.FormName = "FormName"
232 
  objFormComponent.Action = SCRIPT_NAME
233 
  objFormComponent.OnSubmit = "ShowProgress();"
234 
  Call objFormComponent.FormStart()
235 
  %>
236 
  <tr>
237 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
238 
      <tr>
239 
        <td><%=ProgressBar()%></td>
240 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
241 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
242 
      </tr>
243 
    </table></td>
244 
  </tr>
245 
 
246 
  <tr>
247 
    <td>
248 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
249 
	<!--#include file="messages/_msg_inline.asp"-->
250 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
251 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
252 
	  <tr>
253 
        <td nowrap class="form_iname" valign="top">OS Name </td>
254 
        <td valign="top"><%=objFormComponent.TextBox ( "os_name", objForm.GetValue( "os_name", objFormCollector.Item("os_name") ), "size='60' class='form_ivalue'" )%></td>
255 
        <td valign="top"><%=objForm.Validate ("os_name")%> </td>
256 
      </tr>
257 
	  <tr>
258 
        <td nowrap class="form_iname" valign="top">Node Spec FileName </td>
259 
        <td valign="top"><%=objFormComponent.TextBox ( "node_spec_file", objForm.GetValue( "node_spec_file", objFormCollector.Item("node_spec_file") ), "size='60' class='form_ivalue'" )%></td>
260 
      </tr>
261 
	  <tr>
262 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
263 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
264 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
265 
		<%Else%>
266 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
267 
		<%End If%>
268 
		<td valign="top"></td>
269 
      </tr>
270 
      <tr>
271 
        <td valign="top" nowrap class="form_iname">Base Configuration </td>
272 
        <td valign="top" class="body_txt">
273 
		<%Response.write _
274 
		objFormComponent.ComboWithText ( _
275 
			"base_env_name", _
276 
			objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), _
277 
			GetBaseEnv( objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), _
278 
			Request("bom_id")  ), "size='50' class='form_ivalue'" _
279 
		)%></td>
280 
		<td valign="top"><%=objForm.Validate ("base_env_name")%></td>
281 
      </tr>
282 
      <tr>
283 
        <td valign="top" nowrap class="form_iname">Comments</td>
284 
        <td valign="top"><%=objFormComponent.TextArea ( "os_comments", objForm.GetValue( "os_comments", objFormCollector.Item("os_comments") ), 10, 60, "class='form_ivalue'" )%></td>
285 
		<td valign="top">
286 
		<%=objForm.Validate ("os_comments")%>
287 
		</td>
288 
      </tr>
289 
      <tr>
290 
        <td width="10%" class="form_iname">&nbsp;</td>
291 
        <td width="1%">&nbsp;</td>
292 
		<td width="90%" class="val_err"></td>
293 
      </tr>
294 
    </table></td>
295 
  </tr>
296 
  <%=objPMod.ComposeHiddenTagsWithout("node_id")%>
297 
  <input type="hidden" name="node_id" value="<%=parNode_id%>">
298 
  <input type="hidden" name="os_id_list" value="<%=parOs_id_list%>">
299 
  <input type="hidden" name="bos_id" value="<%=parBos_id%>">
300 
  <input type="hidden" name="action" value="true">
301 
  <%
302 
  Call objFormComponent.FormEnd()
303 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
304 
  %>
305 
</table>
306 
</body>
307 
</html>
5958 dpurdie 308 
<!--#include file="common/globals_destructor.asp"-->
309