| Line 51... |
Line 51... |
| 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 ("base_env_id") = rsQry("base_env_id")
|
57 |
outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
|
| 57 |
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")
|
| 58 |
|
60 |
|
| 59 |
Else
|
61 |
Else
|
| 60 |
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
|
| 61 |
|
63 |
|
| 62 |
End If
|
64 |
End If
|
| Line 117... |
Line 119... |
| 117 |
On Error Resume Next
|
119 |
On Error Resume Next
|
| 118 |
|
120 |
|
| 119 |
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
|
| 120 |
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
|
| 121 |
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
|
| - |
|
125 |
OraDatabase.Parameters.Add "NOT_XML", Request("not_xml"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 122 |
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
|
| 123 |
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
|
| 124 |
|
- |
|
| - |
|
128 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 125 |
|
129 |
|
| 126 |
objEH.TryORA ( OraSession )
|
130 |
objEH.TryORA ( OraSession )
|
| 127 |
|
131 |
|
| 128 |
OraDatabase.ExecuteSQL _
|
132 |
OraDatabase.ExecuteSQL _
|
| 129 |
"BEGIN pk_Operating_System.Add_Os ( :OS_NAME, :OS_COMMENTS, :NODE_ID, :BASE_ENV_NAME, :BOS_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;"
|
| 130 |
|
134 |
|
| 131 |
objEH.CatchORA ( OraSession )
|
135 |
objEH.CatchORA ( OraSession )
|
| 132 |
|
136 |
|
| 133 |
|
137 |
|
| 134 |
OraDatabase.Parameters.Remove "OS_NAME"
|
138 |
OraDatabase.Parameters.Remove "OS_NAME"
|
| 135 |
OraDatabase.Parameters.Remove "BASE_ENV_NAME"
|
139 |
OraDatabase.Parameters.Remove "BASE_ENV_NAME"
|
| 136 |
OraDatabase.Parameters.Remove "OS_COMMENTS"
|
140 |
OraDatabase.Parameters.Remove "OS_COMMENTS"
|
| - |
|
141 |
OraDatabase.Parameters.Remove "NODE_SPEC_FILE"
|
| - |
|
142 |
OraDatabase.Parameters.Remove "NOT_XML"
|
| 137 |
OraDatabase.Parameters.Remove "NODE_ID"
|
143 |
OraDatabase.Parameters.Remove "NODE_ID"
|
| 138 |
OraDatabase.Parameters.Remove "BOS_ID"
|
144 |
OraDatabase.Parameters.Remove "BOS_ID"
|
| - |
|
145 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 139 |
|
146 |
|
| 140 |
End Sub
|
147 |
End Sub
|
| 141 |
'--------------------------------------------------------------------------------------------------------------------------
|
148 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 142 |
Sub UpdateOs ()
|
149 |
Sub UpdateOs ()
|
| 143 |
On Error Resume Next
|
150 |
On Error Resume Next
|
| 144 |
|
151 |
|
| 145 |
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
|
| 146 |
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
|
| 147 |
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
|
| 148 |
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
|
| 149 |
|
- |
|
| - |
|
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
|
| - |
|
158 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 150 |
|
159 |
|
| 151 |
objEH.TryORA ( OraSession )
|
160 |
objEH.TryORA ( OraSession )
|
| 152 |
|
161 |
|
| 153 |
OraDatabase.ExecuteSQL _
|
162 |
OraDatabase.ExecuteSQL _
|
| 154 |
"BEGIN pk_Operating_System.Update_Os ( :OS_ID, :OS_NAME, :OS_COMMENTS, :BASE_ENV_NAME ); 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;"
|
| 155 |
|
164 |
|
| 156 |
objEH.CatchORA ( OraSession )
|
165 |
objEH.CatchORA ( OraSession )
|
| 157 |
|
166 |
|
| 158 |
|
167 |
|
| 159 |
OraDatabase.Parameters.Remove "OS_ID"
|
168 |
OraDatabase.Parameters.Remove "OS_ID"
|
| 160 |
OraDatabase.Parameters.Remove "OS_NAME"
|
169 |
OraDatabase.Parameters.Remove "OS_NAME"
|
| 161 |
OraDatabase.Parameters.Remove "BASE_ENV_NAME"
|
170 |
OraDatabase.Parameters.Remove "BASE_ENV_NAME"
|
| 162 |
OraDatabase.Parameters.Remove "OS_COMMENTS"
|
171 |
OraDatabase.Parameters.Remove "OS_COMMENTS"
|
| - |
|
172 |
OraDatabase.Parameters.Remove "NODE_SPEC_FILE"
|
| - |
|
173 |
OraDatabase.Parameters.Remove "NOT_XML"
|
| - |
|
174 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 163 |
|
175 |
|
| 164 |
End Sub
|
176 |
End Sub
|
| 165 |
'--------------------------------------------------------------------------------------------------------------------------
|
177 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 166 |
%>
|
178 |
%>
|
| 167 |
<%
|
179 |
<%
|
| Line 241... |
Line 253... |
| 241 |
<tr>
|
253 |
<tr>
|
| 242 |
<td nowrap class="form_iname" valign="top">OS Name </td>
|
254 |
<td nowrap class="form_iname" valign="top">OS Name </td>
|
| 243 |
<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"><%=objFormComponent.TextBox ( "os_name", objForm.GetValue( "os_name", objFormCollector.Item("os_name") ), "size='60' class='form_ivalue'" )%></td>
|
| 244 |
<td valign="top"><%=objForm.Validate ("os_name")%> </td>
|
256 |
<td valign="top"><%=objForm.Validate ("os_name")%> </td>
|
| 245 |
</tr>
|
257 |
</tr>
|
| - |
|
258 |
<tr>
|
| - |
|
259 |
<td nowrap class="form_iname" valign="top">Node Spec FileName </td>
|
| - |
|
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>
|
| - |
|
261 |
</tr>
|
| - |
|
262 |
<tr>
|
| - |
|
263 |
<td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
|
| - |
|
264 |
<%If IsNull(objFormCollector.Item("not_xml")) Then%>
|
| - |
|
265 |
<td valign="top"><input type="checkbox" name="not_xml"></td>
|
| - |
|
266 |
<%Else%>
|
| - |
|
267 |
<td valign="top"><input type="checkbox" name="not_xml" checked></td>
|
| - |
|
268 |
<%End If%>
|
| - |
|
269 |
<td valign="top"></td>
|
| - |
|
270 |
</tr>
|
| 246 |
<tr>
|
271 |
<tr>
|
| 247 |
<td valign="top" nowrap class="form_iname">Base Configuration </td>
|
272 |
<td valign="top" nowrap class="form_iname">Base Configuration </td>
|
| 248 |
<td valign="top" class="body_txt">
|
273 |
<td valign="top" class="body_txt">
|
| 249 |
<%Response.write _
|
274 |
<%Response.write _
|
| 250 |
objFormComponent.ComboWithText ( _
|
275 |
objFormComponent.ComboWithText ( _
|