Subversion Repositories DevTools

Rev

Rev 5512 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5512 Rev 6265
Line 31... Line 31...
31 
<%
 31 
<%
32 
'------------------------------------------------------------------------------------------------------------------------------------
 32 
'------------------------------------------------------------------------------------------------------------------------------------
33 
Sub GroupByApplication ( rsQry )
 33 
Sub GroupByApplication ( rsQry )
34 
%>
 34 
%>
35 
<tr>
 35 
<tr>
- 
 
 36 
  <td colspan="4" class="body_rowg">
36 
  <td colspan="4" class="body_rowg"><a href="User_Roles.asp?app_id=<%=rsQry("app_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 0) )%><%=objPMod.ComposeURLWithout("app_id,tree")%>" class="mmenu_link" <%If rsQry("app_id") = Request("app_id") Then Response.Write("style='font-weight: bold;'")%>><%=Expander ( Eval( rsQry("expand") = "-" ) )  &"&nbsp;&nbsp;"&  rsQry("application_name")%></a></td>
 37 
    <a href="User_Roles.asp?app_id=<%=rsQry("app_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 0) )%><%=objPMod.ComposeURLWithout("app_id,tree")%>" class="mmenu_link" <%If rsQry("app_id") = Request("app_id") Then Response.Write("style='font-weight: bold;'")%>>
- 
 
 38 
        <%=Expander ( Eval( rsQry("expand") = "-" ) )  &"&nbsp;&nbsp;"&  rsQry("application_name")%>
- 
 
 39 
    </a>
- 
 
 40 
  </td>
37 
</tr>
 41 
</tr>
38 
<%=ROW_SEPARATOR%>
 42 
<%=ROW_SEPARATOR%>
39 
<%Call GroupByRoles ( rsQry )%>
 43 
<%Call GroupByRoles ( rsQry )%>
40 
<%
 44 
<%
41 
End Sub
 45 
End Sub
42 
'------------------------------------------------------------------------------------------------------------------------------------
 46 
'------------------------------------------------------------------------------------------------------------------------------------
43 
Sub GroupByRoles ( rsQry )
 47 
Sub GroupByRoles ( rsQry )
44 
%>
 48 
%>
45 
<%rsQry.MoveNext%>
 49 
<%rsQry.MoveNext%>
46 
<%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
 50 
<%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
47 
	<%
 - 
 
48 
	If NOT IsNull(rsQry("role_id")) Then
 51 
	If NOT IsNull(rsQry("role_id")) Then
49
- 
 
50 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("role_id")))
 52 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("role_id")))
- 
 
 53 
            Dim bEnabled : bEnabled = canActionControl("canAssignRoleToUser") OR rsQry("can_delegate")
- 
 
 54 
            Dim ImageName
- 
 
 55 
            If IsNull( rsQry("is_role_variation") ) Then
- 
 
 56 
                ImageName = iif(bEnabled, LIMG_ROLE, LIMG_ROLE_OFF)
- 
 
 57 
            Else
- 
 
 58 
                ImageName = iif(bEnabled, LIMG_SPEC_ROLE, LIMG_SPEC_ROLE_OFF)
- 
 
 59 
            End If
51 
	%>
 60 
	%>
52 
		<tr>
 61 
		<tr>
53 
			<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
 62 
			<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" <%=iif(bEnabled, "", " disabled ")%>></td>
54 
			<td nowrap class="body_row"><a title="See Role General Info" href="Role_General.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" class="body_link"><%If IsNull( rsQry("is_role_variation") ) Then%><%=LIMG_ROLE%><%Else%><%=LIMG_SPEC_ROLE%><%End If%><%=rsQry("role_name")%></a></td>
 63 
			<td nowrap class="body_row">
55 
			<td class="body_rowg"></td>
 64 
                <a title="See Role General Info" href="Role_General.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" class="body_link">
- 
 
 65 
                    <%=ImageName%><%=rsQry("role_name")%>
- 
 
 66 
                </a>
- 
 
 67 
            </td>
- 
 
 68 
			<td class="body_rowg"><%=rsQry("comments")%></td>
56 
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" title='See this Role Privileges'><%=LIMG_CONTROL%></a></td>
 69 
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" title='See this Role Privileges'><%=LIMG_CONTROL%></a></td>
57 
		</tr>
 70 
		</tr>
58 
		<%=ROW_SEPARATOR%>
 71 
		<%=ROW_SEPARATOR%>
59 
	<%
 72 
	<%
60 
			rsQry.MoveNext
 73 
			rsQry.MoveNext
Line 120... Line 133...
120 
				<%
 133 
				<%
121 
				'-- Define Action buttons on this tab
 134 
				'-- Define Action buttons on this tab
122 
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
 135 
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
123
136
124 
				If Request("app_id") = "" Then objBtnControl.AllActive = "N"
 137 
				If Request("app_id") = "" Then objBtnControl.AllActive = "N"
125 
				If NOT canActionControl("canAssignRoleToUser") Then objBtnControl.AllActive = "N"
 138 
				If NOT ( canActionControl("canAssignRoleToUser")  OR canActionControl("canDelegateRoleToUser")) Then objBtnControl.AllActive = "N"
126 
 
 - 
 
127 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 139 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
128
140
129 
				objBtnControl.Render( aTabBtnsDef )
 141 
				objBtnControl.Render( aTabBtnsDef )
130 
				%>
 142 
				%>
131 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 143 
				<!-- +++++++++++++++++++++++++++++++++++ -->
Line 171... Line 183...
171 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 183 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
172 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 184 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
173 
					<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 185 
					<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
174 
			          <tr>
 186 
			          <tr>
175 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 187 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
176 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 188 
			            <td width="10%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
177 
			              <tr>
 189 
			              <tr>
178 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
 190 
			                <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
179 
			              </tr>
 191 
			              </tr>
180 
			            </table></td>
 192 
			            </table></td>
181 
			            <td width="60%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Application</td>
 193 
			            <td width="70%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Description</td>
182 
			            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 194 
                        <td width="1%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Privileges</td>
183 
			          </tr>
 195 
			          </tr>
184 
					  <%
 196 
					  <%
- 
 
 197 
		              OraDatabase.Parameters.Add "USER_ID_USER", objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
185 
					  OraDatabase.Parameters.Add "USER_ID", parUser_id,	ORAPARM_INPUT, ORATYPE_NUMBER
198 
					  OraDatabase.Parameters.Add "USER_ID", parUser_id,	ORAPARM_INPUT, ORATYPE_NUMBER
186 
					  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
199 
					  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
187
200
188 
					  Dim tempCnt
 201 
					  Dim tempCnt
189 
					  tempCnt = 0
 202 
					  tempCnt = 0
Line 194... Line 207...
194
207
195 
					    rsQry.MoveNext
 208 
					    rsQry.MoveNext
196 
						tempCnt = tempCnt + 1
 209 
						tempCnt = tempCnt + 1
197 
					  WEnd
 210 
					  WEnd
198
211
- 
 
 212 
					  OraDatabase.Parameters.Remove "USER_ID_USER"
199 
					  OraDatabase.Parameters.Remove "USER_ID"
 213 
					  OraDatabase.Parameters.Remove "USER_ID"
200 
					  OraDatabase.Parameters.Remove "APP_ID"
 214 
					  OraDatabase.Parameters.Remove "APP_ID"
201 
					  %>
 215 
					  %>
202 
			          <tr>
 216 
			          <tr>
203 
			            <td colspan="4" background="images/bg_table_border.gif">
 217 
			            <td colspan="4" background="images/bg_table_border.gif">