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 
'|			          Control List					 |
 5 
'|			          Control List					 |
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/_control_common.asp"-->
 16 
<!--#include file="common/_control_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 sNode
 23 
Dim sNode
24 
Dim rsQry
 24 
Dim rsQry
25 
Dim objAppCollector
 25 
Dim objAppCollector
26 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
 27 
'------------ VARIABLE INIT -------------------
28 
Set objAppCollector = CreateObject("Scripting.Dictionary")
 28 
Set objAppCollector = CreateObject("Scripting.Dictionary")
29 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'------------ RUN BEFORE PAGE RENDER ----------
 33 
'------------ RUN BEFORE PAGE RENDER ----------
34 
Call GetApplicationDetails ( parApp_id, objAppCollector )
 34 
Call GetApplicationDetails ( parApp_id, objAppCollector )
35 
 
 35 
 
36 
If (Request("action") <> "") Then
 36 
If (Request("action") <> "") Then
37 
	'-- Select Action
 37 
	'-- Select Action
38
38
39 
	Select Case Request("action")
 39 
	Select Case Request("action")
40 
		Case "btnRemoveControl"
 40 
		Case "btnRemoveControl"
41 
			Call OpenInWindow ( "_RemoveControl.asp?obj_id_list="& Request("obj_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 41 
			Call OpenInWindow ( "_RemoveControl.asp?obj_id_list="& Request("obj_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
42
42
43 
	End Select
 43 
	End Select
44
44
45 
End If
 45 
End If
46 
'----------------------------------------------
 46 
'----------------------------------------------
47 
%>
 47 
%>
48 
<html>
 48 
<html>
49 
<head>
 49 
<head>
50 
<title>Access Manager</title>
 50 
<title>Access Manager</title>
51 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 51 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
52 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 52 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
53 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 53 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
54 
<script language="JavaScript" src="scripts/common.js"></script>
 54 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
55 
 
 55 
<script language="JavaScript" src="scripts/common.js"></script>
56 
</head>
 56 
 
57 
 
 57 
</head>
58 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 58 
 
59 
<!-- HEADER ++++++++++++++++++++++ -->
 59 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
60 
<!--#include file="_header.asp"-->
 60 
<!-- HEADER ++++++++++++++++++++++ -->
61 
<!-- +++++++++++++++++++++++++++++ -->
 61 
<!--#include file="_header.asp"-->
62 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 62 
<!-- +++++++++++++++++++++++++++++ -->
63 
  <tr>
 63 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
64 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 64 
  <tr>
65 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 65 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
66 
	<!--#include file="_treeNavigator.asp"-->
66 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
67 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 67 
	<!--#include file="_treeNavigator.asp"-->
68 
	</td>
 68 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
69 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 69 
	</td>
70 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
 70 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
71 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 71 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
72 
      <tr>
 72 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
73 
        <td background="images/bg_drk_bage_pane.gif">
 73 
      <tr>
74 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 74 
        <td background="images/bg_drk_bage_pane.gif">
75 
            <tr>
 75 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
76 
              <td nowrap class="body_txt">
 76 
            <tr>
77 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 77 
              <td nowrap class="body_txt">
78 
				<%
 78 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
79 
				'-- Define Action buttons on this tab
 79 
				<%
80 
				aTabBtnsDef = Array("btnNewControl", "btnRemoveControl")
 80 
				'-- Define Action buttons on this tab
81 
				If  NOT canActionControl("canCreateActions") Then objBtnControl.AllActive = "N"
 81 
				aTabBtnsDef = Array("btnNewControl", "btnRemoveControl")
82
82 
				If  NOT canActionControl("canCreateActions") Then objBtnControl.AllActive = "N"
83 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 83
84
84 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
85 
				objBtnControl.Render( aTabBtnsDef )
 85
86 
				%>
 86 
				objBtnControl.Render( aTabBtnsDef )
87 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 87 
				%>
88 
			  </td>
 88 
				<!-- +++++++++++++++++++++++++++++++++++ -->
89 
              <td align="right" nowrap class="section_ttl"><%=objAppCollector.Item ("application_name")%></td>
 89 
			  </td>
90 
            </tr>
 90 
              <td align="right" nowrap class="section_ttl"><%=objAppCollector.Item ("application_name")%></td>
91 
          </table>
 91 
            </tr>
92 
		</td>
 92 
          </table>
93 
      </tr>
 93 
		</td>
94 
	  <tr>
 94 
      </tr>
95 
        <td class="menu_crumbttl"><img src="images/i_folder_lrg.gif" width="18" height="15" border="0" align="absmiddle" hspace="4"><strong>Actions</strong></td>
 95 
	  <tr>
96 
      </tr>
 96 
        <td class="menu_crumbttl"><img src="images/i_folder_lrg.gif" width="18" height="15" border="0" align="absmiddle" hspace="4"><strong>Actions</strong></td>
97 
      <tr>
 97 
      </tr>
98 
        <td>
 98 
      <tr>
99 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 99 
        <td>
100 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 100 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
101 
          <tr>
 101 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
102 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 102 
          <tr>
103 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 103 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
104 
              <tr>
 104 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
105 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Action Name</td>
 105 
              <tr>
106 
              </tr>
 106 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Action Name</td>
107 
            </table></td>
 107 
              </tr>
108 
            <td width="70%" nowrap align="right" background="images/bg_table_col.gif" class="body_col">Description</td>
 108 
            </table></td>
109 
            <td width="1%" nowrap align="right" background="images/bg_table_col.gif" class="body_col">Edit</td>
 109 
            <td width="70%" nowrap align="right" background="images/bg_table_col.gif" class="body_col">Description</td>
110 
          </tr>
 110 
            <td width="1%" nowrap align="right" background="images/bg_table_col.gif" class="body_col">Edit</td>
111 
		  <%
 111 
          </tr>
112 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
112 
		  <%
113
113 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
114 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetControlList.sql"), ORADYN_DEFAULT )
 114
115 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 115 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetControlList.sql"), ORADYN_DEFAULT )
116 
		  %>
 116 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
117 
          <tr>
 117 
		  %>
118 
		  	<td align="center"><input type="checkbox" name="obj_id_list" value="<%=rsQry("obj_id")%>"></td>
 118 
          <tr>
119 
            <td nowrap class="body_row"><a href="Control_General.asp?obj_id=<%=rsQry("obj_id")%>&<%=objPMod.ComposeURL%>" class="body_link" title="See Control General Info"><%=LIMG_CONTROL &  rsQry("obj_name")%></a></td>
 119 
		  	<td align="center"><input type="checkbox" name="obj_id_list" value="<%=rsQry("obj_id")%>"></td>
120 
            <td class="body_row"><%=rsQry("obj_description")%></td>
 120 
            <td nowrap class="body_row"><a href="Control_General.asp?obj_id=<%=rsQry("obj_id")%>&<%=objPMod.ComposeURL%>" class="body_link" title="See Control General Info"><%=LIMG_CONTROL &  rsQry("obj_name")%></a></td>
121 
			<td align="center">
 121 
            <td class="body_row"><%=rsQry("obj_description")%></td>
122 
            <% If canActionControl("canCreateActions") Then%>
 122 
			<td align="center">
123 
                <a href="javascript:;" onClick="MM_openBrWindow('wEditControl.asp?obj_id=<%=rsQry("obj_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','Edit Action','scrollbars=yes,resizable=yes,width=600,height=350')" title='Edit Action'><%=LIMG_EDIT%></a>
 123 
            <% If canActionControl("canCreateActions") Then%>
124 
            <%Else%>
 124 
                <a href="javascript:;" onClick="MM_openBrWindow('wEditControl.asp?obj_id=<%=rsQry("obj_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','Edit Action','scrollbars=yes,resizable=yes,width=600,height=350')" title='Edit Action'><%=LIMG_EDIT%></a>
125 
                <%=LIMG_EDIT_OFF%>
 125 
            <%Else%>
126 
            <%End If%>
 126 
                <%=LIMG_EDIT_OFF%>
127 
            </td>
 127 
            <%End If%>
128 
          </tr>
 128 
            </td>
129 
		  <%rsQry.MoveNext%>
 129 
          </tr>
130
130 
		  <%rsQry.MoveNext%>
131 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 131
132 
          <tr>
 132 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
133 
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 133 
          <tr>
134 
          </tr>
 134 
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
135 
		  <%End If%>
 135 
          </tr>
136
136 
		  <%End If%>
137 
		  <%
 137
138 
		  WEnd
 138 
		  <%
139
139 
		  WEnd
140 
		  OraDatabase.Parameters.Remove "APP_ID"
 140
141 
		  %>
 141 
		  OraDatabase.Parameters.Remove "APP_ID"
142 
          <tr>
 142 
		  %>
143 
            <td colspan="3" background="images/bg_table_border.gif">
 143 
          <tr>
144 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 144 
            <td colspan="3" background="images/bg_table_border.gif">
145 
              <tr>
 145 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
146 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 146 
              <tr>
147 
              </tr>
 147 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
148 
             </table>
 148 
              </tr>
149 
			</td>
 149 
             </table>
150 
          </tr>
 150 
			</td>
151 
         </table>
151 
          </tr>
152 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 152 
         </table>
153 
         <br></td>
 153 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
154 
      </tr>
 154 
         <br></td>
155 
	  <%=objPMod.ComposeHiddenTags()%>
 155 
      </tr>
156 
	  <input type="hidden" name="action" value="true">
 156 
	  <%=objPMod.ComposeHiddenTags()%>
157 
	</form>
 157 
	  <input type="hidden" name="action" value="true">
158 
    </table></td>
 158 
	</form>
159 
  </tr>
 159 
    </table></td>
160 
</table>
 160 
  </tr>
161 
<!-- FOOTER ++++++++++++++++++++++ -->
 161 
</table>
162 
<!--#include file="_footer.asp"-->
 162 
<!-- FOOTER ++++++++++++++++++++++ -->
163 
<!-- +++++++++++++++++++++++++++++ -->
 163 
<!--#include file="_footer.asp"-->
164 
</body>
 164 
<!-- +++++++++++++++++++++++++++++ -->
165 
</html>
 165 
</body>
166 
<%
 166 
</html>
167 
'------------ RUN AFTER PAGE RENDER -----------
 167 
<%
168 
'----------------------------------------------
 168 
'------------ RUN AFTER PAGE RENDER -----------
169 
%>
 169 
'----------------------------------------------
- 
 
 170 
%>
170 
<!--#include file="common/globals_destructor.asp"-->
 171 
<!--#include file="common/globals_destructor.asp"-->
171 

            172