| Line 47... |
Line 47... |
| 47 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
47 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 48 |
outobjDetails.Item ("node_id") = rsQry("node_id")
|
48 |
outobjDetails.Item ("node_id") = rsQry("node_id")
|
| 49 |
outobjDetails.Item ("node_name") = rsQry("node_name")
|
49 |
outobjDetails.Item ("node_name") = rsQry("node_name")
|
| 50 |
outobjDetails.Item ("node_comments") = rsQry("node_comments")
|
50 |
outobjDetails.Item ("node_comments") = rsQry("node_comments")
|
| 51 |
outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
|
51 |
outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
|
| - |
|
52 |
outobjDetails.Item ("node_version") = rsQry("node_version")
|
| - |
|
53 |
outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")
|
| 52 |
|
54 |
|
| 53 |
Else
|
55 |
Else
|
| 54 |
Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
|
56 |
Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
|
| 55 |
|
57 |
|
| 56 |
End If
|
58 |
End If
|
| Line 129... |
Line 131... |
| 129 |
End Sub
|
131 |
End Sub
|
| 130 |
'--------------------------------------------------------------------------------------------------------------------------
|
132 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 131 |
Sub UpdateNode ()
|
133 |
Sub UpdateNode ()
|
| 132 |
On Error Resume Next
|
134 |
On Error Resume Next
|
| 133 |
|
135 |
|
| 134 |
OraDatabase.Parameters.Add "NODE_ID", Request("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
136 |
OraDatabase.Parameters.Add "NODE_ID", Request("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 135 |
OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING
|
137 |
OraDatabase.Parameters.Add "NODE_NAME", Request("node_name"), ORAPARM_INPUT, ORATYPE_STRING
|
| 136 |
OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
138 |
OraDatabase.Parameters.Add "NODE_TYPE_ID", Request("node_type_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 137 |
OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING
|
139 |
OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), ORAPARM_INPUT, ORATYPE_STRING
|
| 138 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
140 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 139 |
|
- |
|
| - |
|
141 |
OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", Request("node_life_cycle"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 140 |
|
142 |
|
| 141 |
objEH.TryORA ( OraSession )
|
143 |
objEH.TryORA ( OraSession )
|
| 142 |
|
144 |
|
| 143 |
OraDatabase.ExecuteSQL _
|
145 |
OraDatabase.ExecuteSQL _
|
| 144 |
"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID ); END;"
|
146 |
"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE ); END;"
|
| 145 |
|
147 |
|
| 146 |
objEH.CatchORA ( OraSession )
|
148 |
objEH.CatchORA ( OraSession )
|
| 147 |
|
149 |
|
| 148 |
|
150 |
|
| 149 |
OraDatabase.Parameters.Remove "NODE_NAME"
|
151 |
OraDatabase.Parameters.Remove "NODE_NAME"
|
| 150 |
OraDatabase.Parameters.Remove "NODE_TYPE_ID"
|
152 |
OraDatabase.Parameters.Remove "NODE_TYPE_ID"
|
| 151 |
OraDatabase.Parameters.Remove "NODE_COMMENTS"
|
153 |
OraDatabase.Parameters.Remove "NODE_COMMENTS"
|
| 152 |
OraDatabase.Parameters.Remove "NODE_ID"
|
154 |
OraDatabase.Parameters.Remove "NODE_ID"
|
| 153 |
OraDatabase.Parameters.Remove "USER_ID"
|
155 |
OraDatabase.Parameters.Remove "USER_ID"
|
| - |
|
156 |
OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
|
| 154 |
|
157 |
|
| 155 |
End Sub
|
158 |
End Sub
|
| 156 |
'--------------------------------------------------------------------------------------------------------------------------
|
159 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 157 |
%>
|
160 |
%>
|
| 158 |
<%
|
161 |
<%
|
| Line 240... |
Line 243... |
| 240 |
<tr>
|
243 |
<tr>
|
| 241 |
<td nowrap class="form_iname" valign="top">Node Name </td>
|
244 |
<td nowrap class="form_iname" valign="top">Node Name </td>
|
| 242 |
<td valign="top"><%=objFormComponent.TextBox ( "node_name", objForm.GetValue( "node_name", objFormCollector.Item("node_name") ), "size='60' class='form_ivalue'" )%></td>
|
245 |
<td valign="top"><%=objFormComponent.TextBox ( "node_name", objForm.GetValue( "node_name", objFormCollector.Item("node_name") ), "size='60' class='form_ivalue'" )%></td>
|
| 243 |
<td valign="top"><%=objForm.Validate ("node_name")%></td>
|
246 |
<td valign="top"><%=objForm.Validate ("node_name")%></td>
|
| 244 |
</tr>
|
247 |
</tr>
|
| - |
|
248 |
<%If objFormCollector.Item("node_version") <> "" Then %>
|
| - |
|
249 |
<tr>
|
| - |
|
250 |
<td nowrap class="form_iname" valign="top">Node Version </td>
|
| - |
|
251 |
<td valign="top"><%=objFormComponent.TextBox ( "node_version", objForm.GetValue( "node_version", objFormCollector.Item("node_version") ), "size='60' class='form_ivalue' disabled" )%></td>
|
| - |
|
252 |
</tr>
|
| - |
|
253 |
<tr>
|
| - |
|
254 |
<td nowrap class="form_iname" valign="top">Node LifeCycle </td>
|
| - |
|
255 |
<td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
|
| - |
|
256 |
</tr>
|
| - |
|
257 |
<%End If%>
|
| 245 |
<tr>
|
258 |
<tr>
|
| 246 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
259 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
| 247 |
<td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
|
260 |
<td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
|
| 248 |
<td valign="top"><%=objForm.Validate ("node_comments")%></td>
|
261 |
<td valign="top"><%=objForm.Validate ("node_comments")%></td>
|
| 249 |
</tr>
|
262 |
</tr>
|