Subversion Repositories DevTools

Rev

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

Rev 5299 Rev 5354
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wEditControl				 	 |
 5 
'|			          wEditControl				 	 |
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 
<!--#include file="common/_user_common.asp"-->
 17 
<!--#include file="common/_user_common.asp"-->
18 
<%
 18 
<%
19 
'------------ ACCESS CONTROL ------------------
 19 
'------------ ACCESS CONTROL ------------------
20 
%>
 20 
%>
21 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim objFormCollector
 24 
Dim objFormCollector
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 27 
Set objFormCollector = CreateObject("Scripting.Dictionary")
28 
'------------ CONDITIONS ----------------------
 28 
'------------ CONDITIONS ----------------------
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
%>
 30 
%>
31 
<%
 31 
<%
32 
'-----------------------------------------------------------------------------------------------------------------
 32 
'-----------------------------------------------------------------------------------------------------------------
33 
Sub GetControlDetails ( nObj_id, ByRef outobjDetails )
 33 
Sub GetControlDetails ( nObj_id, ByRef outobjDetails )
34 
	Dim rsQry, query
 34 
	Dim rsQry, query
35 
	query = "SELECT *  FROM   CONTROL_OBJECTS  WHERE obj_id = "& nObj_id
 35 
	query = "SELECT *  FROM   CONTROL_OBJECTS  WHERE obj_id = "& nObj_id
36
36
37 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 37 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
38 
 
 38 
 
39 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 39 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
40 
		outobjDetails.Item ("obj_id")   = rsQry("obj_id")
 40 
		outobjDetails.Item ("obj_id")   = rsQry("obj_id")
41 
		outobjDetails.Item ("obj_name") = rsQry("obj_name")
 41 
		outobjDetails.Item ("obj_name") = rsQry("obj_name")
42 
		outobjDetails.Item ("obj_description") = rsQry("obj_description")
 42 
		outobjDetails.Item ("obj_description") = rsQry("obj_description")
43 
	Else
 43 
	Else
44 
		Err.Raise 8, "Sub GetControlDetails", "Empty record set returned. nObj_id="& nObj_id
 44 
		Err.Raise 8, "Sub GetControlDetails", "Empty record set returned. nObj_id="& nObj_id
45
45
46 
	End If
 46 
	End If
47
47
48 
	rsQry.Close
 48 
	rsQry.Close
49 
	Set rsQry = Nothing
 49 
	Set rsQry = Nothing
50 
End Sub
 50 
End Sub
51 
 
 51 
 
52 
'--------------------------------------------------------------------------------------------------------------------------
 52 
'--------------------------------------------------------------------------------------------------------------------------
53 
Sub EditControl ()
 53 
Sub EditControl ()
54 
	On Error Resume Next
 54 
	On Error Resume Next
55
55
56 
	OraDatabase.Parameters.Add "OBJ_NAME", 	      Request("obj_name"), 			ORAPARM_INPUT, ORATYPE_STRING
56 
	OraDatabase.Parameters.Add "OBJ_NAME", 	      Request("obj_name"), 			ORAPARM_INPUT, ORATYPE_STRING
57 
	OraDatabase.Parameters.Add "OBJ_DESCRIPTION", Request("obj_description"), 	ORAPARM_INPUT, ORATYPE_STRING
57 
	OraDatabase.Parameters.Add "OBJ_DESCRIPTION", Request("obj_description"), 	ORAPARM_INPUT, ORATYPE_STRING
58 
	OraDatabase.Parameters.Add "OBJ_ID", 		  Request("obj_id"), 			ORAPARM_INPUT, ORATYPE_STRING
58 
	OraDatabase.Parameters.Add "OBJ_ID", 		  Request("obj_id"), 			ORAPARM_INPUT, ORATYPE_STRING
59
59
60
60
61 
	objEH.TryORA ( OraSession )
 61 
	objEH.TryORA ( OraSession )
62
62
63 
	OraDatabase.ExecuteSQL _
 63 
	OraDatabase.ExecuteSQL _
64 
	"BEGIN pk_Control.Update_Control (:OBJ_ID, :OBJ_NAME, :OBJ_DESCRIPTION ); END;"
64 
	"BEGIN pk_Control.Update_Control (:OBJ_ID, :OBJ_NAME, :OBJ_DESCRIPTION ); END;"
65
65
66 
	objEH.CatchORA ( OraSession )
 66 
	objEH.CatchORA ( OraSession )
67
67
68
68
69 
	OraDatabase.Parameters.Remove "OBJ_NAME"
 69 
	OraDatabase.Parameters.Remove "OBJ_NAME"
70 
	OraDatabase.Parameters.Remove "OBJ_DESCRIPTION"
 70 
	OraDatabase.Parameters.Remove "OBJ_DESCRIPTION"
71 
	OraDatabase.Parameters.Remove "OBJ_ID"
 71 
	OraDatabase.Parameters.Remove "OBJ_ID"
72
72
73 
End Sub
 73 
End Sub
74 
'--------------------------------------------------------------------------------------------------------------------------
 74 
'--------------------------------------------------------------------------------------------------------------------------
75 
%>
 75 
%>
76 
<%
 76 
<%
77 
'------------ RUN BEFORE PAGE RENDER ----------
 77 
'------------ RUN BEFORE PAGE RENDER ----------
78 
' --- Get Form details from DB (for edit forms only) ---
 78 
' --- Get Form details from DB (for edit forms only) ---
79 
'-------------------------------------------------------
 79 
'-------------------------------------------------------
80 
Dim  parObj_id
 80 
Dim  parObj_id
81 
parObj_id = Request("obj_id")
 81 
parObj_id = Request("obj_id")
82 
Call GetControlDetails ( parObj_id, objUserCollector )
 82 
Call GetControlDetails ( parObj_id, objUserCollector )
83 
 
 83 
 
84 
' --- Load Validation Rules ---
 84 
' --- Load Validation Rules ---
85 
Call objForm.LoadValidationRules ( Array("obj_name","obj_description") , OraDatabase )		' Load Validation Rules
 85 
Call objForm.LoadValidationRules ( Array("obj_name","obj_description") , OraDatabase )		' Load Validation Rules
86 
 
 86 
 
87 
' --- Enter Form Validation Rule Changes here... ----
 87 
' --- Enter Form Validation Rule Changes here... ----
88 
'----------------------------------------------------
 88 
'----------------------------------------------------
89 
 
 89 
 
90 
If CBool(Request("action")) Then
 90 
If CBool(Request("action")) Then
91 
	If objForm.IsValidOnPostBack Then
 91 
	If objForm.IsValidOnPostBack Then
92 
		' --- Form is Valid ---
 92 
		' --- Form is Valid ---
93 
		Call EditControl()
 93 
		Call EditControl()
94
94
95 
		If objEH.Finally Then
 95 
		If objEH.Finally Then
96 
            If Request("rmode") <> "" Then
 96 
            If Request("rmode") <> "" Then
97 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,rmode") )
 97 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,rmode") )
98 
            Else
 98 
            Else
99 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,obj_id,rmode") )
 99 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,obj_id,rmode") )
100 
            End If
 100 
            End If
101 
			Call CloseWindow()
 101 
			Call CloseWindow()
102 
		End If
 102 
		End If
103
103
104 
	End If
 104 
	End If
105 
End If
 105 
End If
106 
'----------------------------------------------
 106 
'----------------------------------------------
107 
%>
 107 
%>
108 
<html>
 108 
<html>
109 
<head>
 109 
<head>
110 
<title>Access Manager</title>
 110 
<title>Access Manager</title>
111 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 111 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
112 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 112 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
113 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 113 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
114 
<script language="JavaScript" src="scripts/common.js"></script>
 114 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
115 
</head>
 115 
<script language="JavaScript" src="scripts/common.js"></script>
116 
 
 116 
</head>
117 
<body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.obj_name.focus();">
 117 
 
118 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 118 
<body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.obj_name.focus();">
119 
  <tr>
 119 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
120 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_control_lrg.gif" width="13" height="18" hspace="0" align="absmiddle">&nbsp;Edit Control </span> <br>
 120 
  <tr>
121 
    Edit Control Name and Description.
121 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_control_lrg.gif" width="13" height="18" hspace="0" align="absmiddle">&nbsp;Edit Control </span> <br>
122 
      </td>
 122 
    Edit Control Name and Description.
123 
  </tr>
 123 
      </td>
124 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 124 
  </tr>
125 
  <tr>
 125 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
126 
    <td background="images/bg_drk_bage_pane.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 126 
  <tr>
127 
      <tr>
 127 
    <td background="images/bg_drk_bage_pane.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
128 
        <td>&nbsp;</td>
 128 
      <tr>
129 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Update">
 129 
        <td>&nbsp;</td>
130 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 130 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Update">
131 
      </tr>
 131 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
132 
    </table></td>
 132 
      </tr>
133 
  </tr>
 133 
    </table></td>
134 
  <tr>
 134 
  </tr>
135 
    <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 135 
  <tr>
136 
      <tr>
 136 
    <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
137 
        <td width="1%"><img src="images/spacer.gif" width="60" height="200"></td>
 137 
      <tr>
138 
        <td width="100%"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 138 
        <td width="1%"><img src="images/spacer.gif" width="60" height="200"></td>
139 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 139 
        <td width="100%"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
140 
          <%If NOT objEH.Finally Then%>
 140 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
141 
          <tr>
 141 
          <%If NOT objEH.Finally Then%>
142 
            <td class="form_iname">&nbsp;</td>
 142 
          <tr>
143 
            <td>
 143 
            <td class="form_iname">&nbsp;</td>
144 
              <%objEH.DisplayMessage()%>
 144 
            <td>
145 
            </td>
 145 
              <%objEH.DisplayMessage()%>
146 
            <td class="val_err"></td>
 146 
            </td>
147 
          </tr>
 147 
            <td class="val_err"></td>
148 
          <%End If%>
 148 
          </tr>
149 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 149 
          <%End If%>
150 
          <tr>
 150 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
151 
            <td nowrap class="form_iname" valign="top">Control Name </td>
 151 
          <tr>
152 
            <td valign="top"><input name="obj_name" type="text" class="form_ivalue" size="60" value="<%=objUserCollector("obj_name")%>"></td>
 152 
            <td nowrap class="form_iname" valign="top">Control Name </td>
153 
            <td valign="top"><%=objForm.Validate ("obj_name")%></td>
 153 
            <td valign="top"><input name="obj_name" type="text" class="form_ivalue" size="60" value="<%=objUserCollector("obj_name")%>"></td>
154 
          </tr>
 154 
            <td valign="top"><%=objForm.Validate ("obj_name")%></td>
155 
          <tr>
 155 
          </tr>
156 
            <td valign="top" nowrap class="form_iname">Description</td>
 156 
          <tr>
157 
            <td valign="top"><textarea name="obj_description" cols="60" rows="10" class="form_ivalue"><%=objUserCollector("obj_description")%></textarea></td>
 157 
            <td valign="top" nowrap class="form_iname">Description</td>
158 
            <td valign="top"> <%=objForm.Validate ("obj_description")%> </td>
 158 
            <td valign="top"><textarea name="obj_description" cols="60" rows="10" class="form_ivalue"><%=objUserCollector("obj_description")%></textarea></td>
159 
          </tr>
 159 
            <td valign="top"> <%=objForm.Validate ("obj_description")%> </td>
160 
          <tr>
 160 
          </tr>
161 
            <td width="10%" class="form_iname">&nbsp;</td>
 161 
          <tr>
162 
            <td width="1%">&nbsp;</td>
 162 
            <td width="10%" class="form_iname">&nbsp;</td>
163 
            <td width="90%" class="val_err"></td>
 163 
            <td width="1%">&nbsp;</td>
164 
          </tr>
 164 
            <td width="90%" class="val_err"></td>
165 
        </table></td>
 165 
          </tr>
166 
      </tr>
 166 
        </table></td>
167 
    </table></td>
 167 
      </tr>
168 
  </tr>
 168 
    </table></td>
169 
  <%=objPMod.ComposeHiddenTags()%>
 169 
  </tr>
170 
  <input type="hidden" name="action" value="true">
 170 
  <%=objPMod.ComposeHiddenTags()%>
171 
  <input type="hidden" name="rmode" value="<%=Request("rmode")%>">
 171 
  <input type="hidden" name="action" value="true">
172 
  </form>
 172 
  <input type="hidden" name="rmode" value="<%=Request("rmode")%>">
173 
</table>
 173 
  </form>
174 
</body>
 174 
</table>
175 
</html>
 175 
</body>
176 
<%
 176 
</html>
177 
'------------ RUN AFTER PAGE RENDER -----------
 177 
<%
178 
Set objFormCollector = Nothing
 178 
'------------ RUN AFTER PAGE RENDER -----------
179 
'----------------------------------------------
 179 
Set objFormCollector = Nothing
180 
%>
 180 
'----------------------------------------------
181 
<!--#include file="common/globals_destructor.asp"-->
 181 
%>
- 
 
 182 
<!--#include file="common/globals_destructor.asp"-->