Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
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 ( _