Subversion Repositories DevTools

Rev

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

Rev 2 Rev 5354
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          Role Members					 |
 5 
'|			          Role Members					 |
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 sNode
 23 
Dim sNode
24 
Dim rsQry
 24 
Dim rsQry
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
'------------ CONDITIONS ----------------------
 27 
'------------ CONDITIONS ----------------------
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'------------ RUN BEFORE PAGE RENDER ----------
 31 
'------------ RUN BEFORE PAGE RENDER ----------
32 
Call GetRoleDetails ( parRole_id, parApp_id, objRoleCollector )
 32 
Call GetRoleDetails ( parRole_id, parApp_id, objRoleCollector )
33 
 
 33 
 
34 
If (Request("action") <> "") Then
 34 
If (Request("action") <> "") Then
35 
	'-- Select Action
 35 
	'-- Select Action
36
36
37 
	Select Case Request("action")
 37 
	Select Case Request("action")
38 
		Case "btnSubMember"
 38 
		Case "btnSubMember"
39 
			Call OpenInWindow ( "_RemoveRoleMember.asp?user_id_list="& Request("user_id_list") &"&everyone="& Request("everyone") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 39 
			Call OpenInWindow ( "_RemoveRoleMember.asp?user_id_list="& Request("user_id_list") &"&everyone="& Request("everyone") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
40
40
41 
	End Select
 41 
	End Select
42
42
43 
End If
 43 
End If
44 
'----------------------------------------------
 44 
'----------------------------------------------
45 
%>
 45 
%>
46 
<html>
 46 
<html>
47 
<head>
 47 
<head>
48 
<title>Access Manager</title>
 48 
<title>Access Manager</title>
49 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 49 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
50 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 50 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
51 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 51 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
52 
<script language="JavaScript" src="scripts/common.js"></script>
 52 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
53 
</head>
 53 
<script language="JavaScript" src="scripts/common.js"></script>
54 
 
 54 
</head>
55 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 55 
 
56 
<!-- HEADER ++++++++++++++++++++++ -->
 56 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
57 
<!--#include file="_header.asp"-->
 57 
<!-- HEADER ++++++++++++++++++++++ -->
58 
<!-- +++++++++++++++++++++++++++++ -->
 58 
<!--#include file="_header.asp"-->
59 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 59 
<!-- +++++++++++++++++++++++++++++ -->
60 
  <tr>
 60 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
61 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 61 
  <tr>
62 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 62 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
63 
	<!--#include file="_treeNavigator.asp"-->
63 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
64 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 64 
	<!--#include file="_treeNavigator.asp"-->
65 
	</td>
 65 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
66 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 66 
	</td>
67 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
 67 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
68 
	<form name="FormName" method="get" action="<%=SCRIPT_NAME%>">
 68 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
69 
      <tr>
 69 
	<form name="FormName" method="get" action="<%=SCRIPT_NAME%>">
70 
        <td background="images/bg_drk_bage_pane.gif">
 70 
      <tr>
71 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 71 
        <td background="images/bg_drk_bage_pane.gif">
72 
            <tr>
 72 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
73 
              <td nowrap class="body_txt">
 73 
            <tr>
74 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 74 
              <td nowrap class="body_txt">
75 
				<%
 75 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
76 
				'-- Define Action buttons on this tab
 76 
				<%
77 
				aTabBtnsDef = Array("btnAddMember", "btnSubMember" )
 77 
				'-- Define Action buttons on this tab
78
78 
				aTabBtnsDef = Array("btnAddMember", "btnSubMember" )
79 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 79
80
80 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
81 
				objBtnControl.Render( aTabBtnsDef )
 81
82 
				%>
 82 
				objBtnControl.Render( aTabBtnsDef )
83 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 83 
				%>
84 
			  </td>
 84 
				<!-- +++++++++++++++++++++++++++++++++++ -->
85 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
 85 
			  </td>
86 
            </tr>
 86 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
87 
          </table>
 87 
            </tr>
88 
		</td>
 88 
          </table>
89 
      </tr>
 89 
		</td>
90 
	  <tr>
 90 
      </tr>
91 
        <td class="menu_crumbttl"><%Call RenderTitle ( objRoleCollector )%></td>
 91 
	  <tr>
92 
      </tr>
 92 
        <td class="menu_crumbttl"><%Call RenderTitle ( objRoleCollector )%></td>
93 
      <tr>
 93 
      </tr>
94 
        <td>
 94 
      <tr>
95 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 95 
        <td>
96 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 96 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
97 
			<!--#include file="_tabs_definition.asp"-->
 97 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
98 
			<%
 98 
			<!--#include file="_tabs_definition.asp"-->
99 
			Set objTabControl = New TabControl
 99 
			<%
100 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
 100 
			Set objTabControl = New TabControl
101 
			objTabControl.TabStyle = "StyleMac"
 101 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
102 
			objTabControl.AddTabDefnition ( arrRole )
 102 
			objTabControl.TabStyle = "StyleMac"
103 
			objTabControl.DisableByName ( "Data Filtering" )
 103 
			objTabControl.AddTabDefnition ( arrRole )
104 
			objTabControl.SelectByName ( "Members" )
 104 
			objTabControl.DisableByName ( "Data Filtering" )
105 
			objTabControl.Render ()
 105 
			objTabControl.SelectByName ( "Members" )
106 
			%>
 106 
			objTabControl.Render ()
107 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
 107 
			%>
108 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 108 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
109 
          <tr>
 109 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
110 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
 110 
          <tr>
111 
            <td width="100%" valign="top">
 111 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
112 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 112 
            <td width="100%" valign="top">
113 
                <tr>
 113 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
114 
                  <td>
 114 
                <tr>
115 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 115 
                  <td>
116 
				   	<%
 116 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
117 
					OraDatabase.Parameters.Add "ROLE_ID", parRole_id,	ORAPARM_INPUT, ORATYPE_NUMBER
117 
				   	<%
118
118 
					OraDatabase.Parameters.Add "ROLE_ID", parRole_id,	ORAPARM_INPUT, ORATYPE_NUMBER
119 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RoleMembers.sql") , ORADYN_DEFAULT )
 119
120
120 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RoleMembers.sql") , ORADYN_DEFAULT )
121 
					OraDatabase.Parameters.Remove "ROLE_ID"
 121
122
122 
					OraDatabase.Parameters.Remove "ROLE_ID"
123 
					'Pass record set to Repeater
 123
124 
					objRepeater.RecordSet = rsQry
 124 
					'Pass record set to Repeater
125
125 
					objRepeater.RecordSet = rsQry
126 
					'Define Table Row with bound variables
 126
127 
					objRepeater.Row = _
 127 
					'Define Table Row with bound variables
128 
						"<tr>"&_
 128 
					objRepeater.Row = _
129 
						"	<td align='center'><input type='checkbox' name='user_id_list' value='""& <#USER_ID#> &""'></td>"&_
 129 
						"<tr>"&_
130 
						"	<td nowrap class='body_row'><a title='See User General Info' href='User_General.asp?user_id=""& <#USER_ID#> &""&""& objPMod.ComposeURL &""' class='body_link'>""& Eval( <#USER_IMAGE#> )  &  <#FULL_NAME#> &""</a></td>"&_
 130 
						"	<td align='center'><input type='checkbox' name='user_id_list' value='""& <#USER_ID#> &""'></td>"&_
131 
						"	<td class='body_rowg'>""& <#USER_NAME#> &""</td>"&_
 131 
						"	<td nowrap class='body_row'><a title='See User General Info' href='User_General.asp?user_id=""& <#USER_ID#> &""&""& objPMod.ComposeURL &""' class='body_link'>""& Eval( <#USER_IMAGE#> )  &  <#FULL_NAME#> &""</a></td>"&_
132 
				        "   <td align='center'><a href='User_Privileges.asp?user_id=""& <#USER_ID#> &""&""& objPMod.ComposeURL &""' title='See this User Permissions'>""& LIMG_CONTROL &""</a></td>"&_
 132 
						"	<td class='body_rowg'>""& <#USER_NAME#> &""</td>"&_
133 
				        "</tr>"&_
 133 
				        "   <td align='center'><a href='User_Privileges.asp?user_id=""& <#USER_ID#> &""&""& objPMod.ComposeURL &""' title='See this User Permissions'>""& LIMG_CONTROL &""</a></td>"&_
134 
						"<tr>"&_
 134 
				        "</tr>"&_
135 
			            "   <td colspan='4' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td>"&_
 135 
						"<tr>"&_
136 
			            "</tr>"
 136 
			            "   <td colspan='4' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td>"&_
137 
					%>
 137 
			            "</tr>"
138 
					<%Call objRepeater.Navigator ( TRUE, TRUE )%>
 138 
					%>
139 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 139 
					<%Call objRepeater.Navigator ( TRUE, TRUE )%>
140 
			          <tr>
 140 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
141 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 141 
			          <tr>
142 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 142 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
143 
			              <tr>
 143 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
144 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
 144 
			              <tr>
145 
			              </tr>
 145 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
146 
			            </table></td>
 146 
			              </tr>
147 
			            <td width="60%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
 147 
			            </table></td>
148 
			            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 148 
			            <td width="60%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
149 
			          </tr>
 149 
			            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
150 
					  <tr>
 150 
			          </tr>
151 
					  	<td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="everyone" value="Y"></td>
 151 
					  <tr>
152 
			            <td nowrap class="body_row" background="images/bg_table_col.gif"><img src="images/i_accounts.gif" width="16" height="14" border="0" hspace="4" align="absmiddle">Everyone</td>
 152 
					  	<td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="everyone" value="Y"></td>
153 
						<td background="images/bg_table_col.gif"></td>
 153 
			            <td nowrap class="body_row" background="images/bg_table_col.gif"><img src="images/i_accounts.gif" width="16" height="14" border="0" hspace="4" align="absmiddle">Everyone</td>
154 
			            <td background="images/bg_table_col.gif"></td>
 154 
						<td background="images/bg_table_col.gif"></td>
155 
			          </tr>
 155 
			            <td background="images/bg_table_col.gif"></td>
156 
					  <%objRepeater.RenderDataGrid ()%>
 156 
			          </tr>
157 
					  <tr>
 157 
					  <%objRepeater.RenderDataGrid ()%>
158 
			            <td colspan="4" background="images/bg_table_border.gif">
 158 
					  <tr>
159 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 159 
			            <td colspan="4" background="images/bg_table_border.gif">
160 
			              <tr>
 160 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
161 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 161 
			              <tr>
162 
			              </tr>
 162 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
163 
			             </table>
 163 
			              </tr>
164 
						</td>
 164 
			             </table>
165 
			          </tr>
 165 
						</td>
166 
			        </table>
 166 
			          </tr>
167 
					<%
 167 
			        </table>
168 
					rsQry.Close()
 168 
					<%
169 
					Set rsQry = Nothing
 169 
					rsQry.Close()
170 
					%>
 170 
					Set rsQry = Nothing
171 
					<%Call objRepeater.Navigator ( FALSE, TRUE )%>
171 
					%>
172 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
 172 
					<%Call objRepeater.Navigator ( FALSE, TRUE )%>
173 
				  </td>
 173 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
174 
                </tr>
 174 
				  </td>
175 
              </table>
 175 
                </tr>
176 
			</td>
 176 
              </table>
177 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 177 
			</td>
178 
          </tr>
 178 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
179 
         </table>
 179 
          </tr>
180 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 180 
         </table>
181 
           <tr>
 181 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
182 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 182 
           <tr>
183 
           </tr>
 183 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
184 
         </table>
 184 
           </tr>
185 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 185 
         </table>
186 
         <br></td>
 186 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
187 
      </tr>
 187 
         <br></td>
188 
	  <%=objPMod.ComposeHiddenTags()%>
 188 
      </tr>
189 
	  <input type="hidden" name="action" value="true">
 189 
	  <%=objPMod.ComposeHiddenTags()%>
190 
	</form>
 190 
	  <input type="hidden" name="action" value="true">
191 
    </table></td>
 191 
	</form>
192 
  </tr>
 192 
    </table></td>
193 
</table>
 193 
  </tr>
194 
<!-- FOOTER ++++++++++++++++++++++ -->
 194 
</table>
195 
<!--#include file="_footer.asp"-->
 195 
<!-- FOOTER ++++++++++++++++++++++ -->
196 
<!-- +++++++++++++++++++++++++++++ -->
 196 
<!--#include file="_footer.asp"-->
197 
</body>
 197 
<!-- +++++++++++++++++++++++++++++ -->
198 
</html>
 198 
</body>
199 
<%
 199 
</html>
200 
'------------ RUN AFTER PAGE RENDER -----------
 200 
<%
201 
'----------------------------------------------
 201 
'------------ RUN AFTER PAGE RENDER -----------
202 
%>
 202 
'----------------------------------------------
- 
 
 203 
%>
203 
<!--#include file="common/globals_destructor.asp"-->
 204 
<!--#include file="common/globals_destructor.asp"-->
204 

            205