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