Subversion Repositories DevTools

Rev

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

Rev 2 Rev 6
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"><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"><%=Expander ( Eval( rsQry("expand") = "-" ) )  &"&nbsp;&nbsp;"&  rsQry("application_name")%></a></td>
 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 
</tr>
 37 
</tr>
38 
<%=ROW_SEPARATOR%>
 38 
<%=ROW_SEPARATOR%>
39 
<%Call GroupByRoles ( rsQry )%>
 39 
<%Call GroupByRoles ( rsQry )%>
40 
<%
 40 
<%
41 
End Sub
 41 
End Sub
Line 118... Line 118...
118 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 118 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
119 
				<%
 119 
				<%
120 
				'-- Define Action buttons on this tab
 120 
				'-- Define Action buttons on this tab
121 
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
 121 
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
122
122
- 
 
 123 
				If Request("app_id") = "" Then
- 
 
 124 
					objBtnControl.AllActive = "N"
- 
 
 125 
				End If
- 
 
 126
123 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 127 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
124
128
125 
				objBtnControl.Render( aTabBtnsDef )
 129 
				objBtnControl.Render( aTabBtnsDef )
126 
				%>
 130 
				%>
127 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 131 
				<!-- +++++++++++++++++++++++++++++++++++ -->