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 
'|			          Role List						 |
 5 
'|			          Role 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/_role_common.asp"-->
 16 
<!--#include file="common/_role_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 rsQry
 23 
Dim rsQry
24 
Dim objAppCollector
 24 
Dim objAppCollector
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
Set objAppCollector = CreateObject("Scripting.Dictionary")
 27 
Set objAppCollector = CreateObject("Scripting.Dictionary")
28 
'------------ CONDITIONS ----------------------
 28 
'------------ CONDITIONS ----------------------
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
%>
 30 
%>
31 
<%
 31 
<%
32 
'----------------------------------------------------------------------------------------------------------------------------------------------
 32 
'----------------------------------------------------------------------------------------------------------------------------------------------
33 
Sub MultiRoleMembers ()
 33 
Sub MultiRoleMembers ()
34 
	On Error Resume Next
 34 
	On Error Resume Next
35
35
36 
	objEH.Try
 36 
	objEH.Try
37
37
38 
		If Request("role_id_list") = "" Then
 38 
		If Request("role_id_list") = "" Then
39 
			Err.Raise 8, "Please select at least one Role.", "No further details available."
 39 
			Err.Raise 8, "Please select at least one Role.", "No further details available."
40 
		Else
 40 
		Else
41 
			Call OpenInWindow ( "MultiRole_Members.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 41 
			Call OpenInWindow ( "MultiRole_Members.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
42 
		End If
 42 
		End If
43
43
44
44
45 
	objEH.Catch
 45 
	objEH.Catch
46
46
47 
End Sub
 47 
End Sub
48 
'----------------------------------------------------------------------------------------------------------------------------------------------
 48 
'----------------------------------------------------------------------------------------------------------------------------------------------
49 
%>
 49 
%>
50 
<%
 50 
<%
51 
'------------ RUN BEFORE PAGE RENDER ----------
 51 
'------------ RUN BEFORE PAGE RENDER ----------
52 
Call GetApplicationDetails ( parApp_id, objAppCollector )
 52 
Call GetApplicationDetails ( parApp_id, objAppCollector )
53 
 
 53 
 
54 
If (Request("action") <> "") Then
 54 
If (Request("action") <> "") Then
55 
	'-- Select Action
 55 
	'-- Select Action
56
56
57 
	Select Case Request("action")
 57 
	Select Case Request("action")
58 
		Case "btnRemoveRole"
 58 
		Case "btnRemoveRole"
59 
			Call OpenInWindow ( "_RemoveRole.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 59 
			Call OpenInWindow ( "_RemoveRole.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
60
60
61 
		Case "btnRoleMembers"
 61 
		Case "btnRoleMembers"
62 
			Call MultiRoleMembers()
 62 
			Call MultiRoleMembers()
63
63
64 
	End Select
 64 
	End Select
65
65
66 
End If
 66 
End If
67 
'----------------------------------------------
 67 
'----------------------------------------------
68 
%>
 68 
%>
69 
<html>
 69 
<html>
70 
<head>
 70 
<head>
71 
<title>Access Manager</title>
 71 
<title>Access Manager</title>
72 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 72 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
73 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 73 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
74 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 74 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
75 
<script language="JavaScript" src="scripts/common.js"></script>
 75 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
76 
 
 76 
<script language="JavaScript" src="scripts/common.js"></script>
77 
</head>
 77 
 
78 
 
 78 
</head>
79 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 79 
 
80 
<!-- HEADER ++++++++++++++++++++++ -->
 80 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
81 
<!--#include file="_header.asp"-->
 81 
<!-- HEADER ++++++++++++++++++++++ -->
82 
<!-- +++++++++++++++++++++++++++++ -->
 82 
<!--#include file="_header.asp"-->
83 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 83 
<!-- +++++++++++++++++++++++++++++ -->
84 
  <tr>
 84 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
85 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 85 
  <tr>
86 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 86 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
87 
	<!--#include file="_treeNavigator.asp"-->
87 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
88 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 88 
	<!--#include file="_treeNavigator.asp"-->
89 
	</td>
 89 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
90 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 90 
	</td>
91 
    <td width="100%" valign="top">
 91 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
92 
	<table width="100%"  border="0" cellspacing="0" cellpadding="9">
 92 
    <td width="100%" valign="top">
93 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 93 
	<table width="100%"  border="0" cellspacing="0" cellpadding="9">
94 
      <tr>
 94 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
95 
        <td background="images/bg_drk_bage_pane.gif">
 95 
      <tr>
96 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 96 
        <td background="images/bg_drk_bage_pane.gif">
97 
            <tr>
 97 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
98 
              <td nowrap class="body_txt">
 98 
            <tr>
99 
			  	<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 99 
              <td nowrap class="body_txt">
100 
				<%
 100 
			  	<!-- BUTTONS CONTROL +++++++++++++++++++ -->
101 
				'-- Define Action buttons on this tab
 101 
				<%
102 
				aTabBtnsDef = Array("btnNewRole", "btnRemoveRole", "height=25", "btnRoleMembers" )
 102 
				'-- Define Action buttons on this tab
103 
 
 103 
				aTabBtnsDef = Array("btnNewRole", "btnRemoveRole", "height=25", "btnRoleMembers" )
104 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 104 
 
105 
                If  NOT canActionControl("canCreateRoles") Then
 105 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
106 
                    Call objBtnControl.Active ( "btnNewRole", enumDB_NO )
 106 
                If  NOT canActionControl("canCreateRoles") Then
107 
                    Call objBtnControl.Active ( "btnRemoveRole", enumDB_NO )
 107 
                    Call objBtnControl.Active ( "btnNewRole", enumDB_NO )
108 
                End If
 108 
                    Call objBtnControl.Active ( "btnRemoveRole", enumDB_NO )
109
109 
                End If
110 
				objBtnControl.Render( aTabBtnsDef )
 110
111 
				%>
 111 
				objBtnControl.Render( aTabBtnsDef )
112 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 112 
				%>
113 
			  </td>
 113 
				<!-- +++++++++++++++++++++++++++++++++++ -->
114 
              <td align="right" nowrap class="section_ttl"><%=objAppCollector.Item ("application_name")%></td>
 114 
			  </td>
115 
            </tr>
 115 
              <td align="right" nowrap class="section_ttl"><%=objAppCollector.Item ("application_name")%></td>
116 
          </table>
 116 
            </tr>
117 
		</td>
 117 
          </table>
118 
      </tr>
 118 
		</td>
119 
	  <tr>
 119 
      </tr>
120 
        <td class="menu_crumbttl"><img src="images/i_folder_lrg.gif" width="18" height="15" border="0" align="absmiddle" hspace="4"><strong>Roles</strong></td>
 120 
	  <tr>
121 
      </tr>
 121 
        <td class="menu_crumbttl"><img src="images/i_folder_lrg.gif" width="18" height="15" border="0" align="absmiddle" hspace="4"><strong>Roles</strong></td>
122 
      <tr>
 122 
      </tr>
123 
        <td>
 123 
      <tr>
124 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 124 
        <td>
125 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 125 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
126 
          <tr>
 126 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
127 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 127 
          <tr>
128 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 128 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
129 
              <tr>
 129 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
130 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
 130 
              <tr>
131 
              </tr>
 131 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
132 
            </table></td>
 132 
              </tr>
133 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Description</td>
 133 
            </table></td>
134 
			<td width="1%" background="images/bg_table_col.gif" class="body_col">Set</td>
 134 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Description</td>
135 
			<td width="1%" background="images/bg_table_col.gif" class="body_col">Edit</td>
 135 
			<td width="1%" background="images/bg_table_col.gif" class="body_col">Set</td>
136 
          </tr>
 136 
			<td width="1%" background="images/bg_table_col.gif" class="body_col">Edit</td>
137 
		  <%
 137 
          </tr>
138 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
138 
		  <%
139
139 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
140 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetRoleList.sql"), ORADYN_DEFAULT )
 140
141 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 141 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetRoleList.sql"), ORADYN_DEFAULT )
142 
		  %>
 142 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
143 
          <tr>
 143 
		  %>
144 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
 144 
          <tr>
145 
            <td nowrap class="body_row"><a href="Role_General.asp?role_id=<%=rsQry("role_id")%>&<%=objPMod.ComposeURL%>" class="body_link" title="See Role Details"><%=LIMG_ROLE &  rsQry("role_name")%></a></td>
 145 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
146 
            <td class="body_row"><%=rsQry("comments")%></td>
 146 
            <td nowrap class="body_row"><a href="Role_General.asp?role_id=<%=rsQry("role_id")%>&<%=objPMod.ComposeURL%>" class="body_link" title="See Role Details"><%=LIMG_ROLE &  rsQry("role_name")%></a></td>
147 
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&<%=objPMod.ComposeURL%>" title="See Role Permissions"><%=LIMG_CONTROL%></a></td>
 147 
            <td class="body_row"><%=rsQry("comments")%></td>
148 
			<td align="center">
 148 
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&<%=objPMod.ComposeURL%>" title="See Role Permissions"><%=LIMG_CONTROL%></a></td>
149 
            <% If canActionControl("canCreateRoles") Then%>
 149 
			<td align="center">
150 
                <a href="javascript:;" onClick="MM_openBrWindow('wEditRole.asp?role_id=<%=rsQry("role_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','Edit Role','scrollbars=yes,resizable=yes,width=600,height=350')" title='Edit Role'><%=LIMG_EDIT%></a>
 150 
            <% If canActionControl("canCreateRoles") Then%>
151 
            <%Else%>
 151 
                <a href="javascript:;" onClick="MM_openBrWindow('wEditRole.asp?role_id=<%=rsQry("role_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','Edit Role','scrollbars=yes,resizable=yes,width=600,height=350')" title='Edit Role'><%=LIMG_EDIT%></a>
152 
                <%=LIMG_EDIT_OFF%>
 152 
            <%Else%>
153 
            <%End If%>
 153 
                <%=LIMG_EDIT_OFF%>
154 
            </td>
 154 
            <%End If%>
155 
          </tr>
 155 
            </td>
156 
		  <%rsQry.MoveNext%>
 156 
          </tr>
157
157 
		  <%rsQry.MoveNext%>
158 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 158
159 
          <tr>
 159 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
160 
            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 160 
          <tr>
161 
          </tr>
 161 
            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
162 
		  <%End If%>
 162 
          </tr>
163
163 
		  <%End If%>
164 
		  <%
 164
165 
		  WEnd
 165 
		  <%
166
166 
		  WEnd
167 
		  OraDatabase.Parameters.Remove "APP_ID"
 167
168 
		  %>
 168 
		  OraDatabase.Parameters.Remove "APP_ID"
169 
          <tr>
 169 
		  %>
170 
            <td colspan="4" background="images/bg_table_border.gif">
 170 
          <tr>
171 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 171 
            <td colspan="4" background="images/bg_table_border.gif">
172 
              <tr>
 172 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
173 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 173 
              <tr>
174 
              </tr>
 174 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
175 
             </table>
 175 
              </tr>
176 
			</td>
 176 
             </table>
177 
          </tr>
 177 
			</td>
178 
         </table>
178 
          </tr>
179 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 179 
         </table>
180 
         <br></td>
 180 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
181 
      </tr>
 181 
         <br></td>
182 
	  <%=objPMod.ComposeHiddenTags()%>
 182 
      </tr>
183 
	  <input type="hidden" name="action" value="true">
 183 
	  <%=objPMod.ComposeHiddenTags()%>
184 
	</form>
 184 
	  <input type="hidden" name="action" value="true">
185 
    </table>
 185 
	</form>
186 
	</td>
 186 
    </table>
187 
  </tr>
 187 
	</td>
188 
</table>
 188 
  </tr>
189 
<!-- FOOTER ++++++++++++++++++++++ -->
 189 
</table>
190 
<!--#include file="_footer.asp"-->
 190 
<!-- FOOTER ++++++++++++++++++++++ -->
191 
<!-- +++++++++++++++++++++++++++++ -->
 191 
<!--#include file="_footer.asp"-->
192 
</body>
 192 
<!-- +++++++++++++++++++++++++++++ -->
193 
</html>
 193 
</body>
194 
<%
 194 
</html>
195 
'------------ RUN AFTER PAGE RENDER -----------
 195 
<%
196 
'----------------------------------------------
 196 
'------------ RUN AFTER PAGE RENDER -----------
197 
%>
 197 
'----------------------------------------------
- 
 
 198 
%>
198 
<!--#include file="common/globals_destructor.asp"-->
 199 
<!--#include file="common/globals_destructor.asp"-->
199 

            200