Subversion Repositories DevTools

Rev

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

Rev 6265 Rev 6657
Line 141... Line 141...
141 
		  OraDatabase.Parameters.Remove "APP_ID"
 141 
		  OraDatabase.Parameters.Remove "APP_ID"
142 
		  OraDatabase.Parameters.Remove "USER_ID"
 142 
		  OraDatabase.Parameters.Remove "USER_ID"
143 
		  OraDatabase.Parameters.Remove "USER_ID_USER"
 143 
		  OraDatabase.Parameters.Remove "USER_ID_USER"
144
144
145 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 145 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
146 
                Dim bGranted : bGranted =  rsQry("granted") = 0
146 
                Dim bGranted : bGranted =  rsQry("granted") <> 0
147 
                Dim bEnabled : bEnabled = (canActionControl("canAssignRoleToUser") OR rsQry("can_delegate")) AND NOT bGranted
 147 
                Dim bEnabled : bEnabled = (canActionControl("canAssignRoleToUser") OR rsQry("can_delegate")) AND NOT bGranted
148 
                Dim ImageName : ImageName = iif(bEnabled, LIMG_ROLE, LIMG_ROLE_OFF)
 148 
                Dim ImageName : ImageName = iif(bEnabled, LIMG_ROLE, LIMG_ROLE_OFF)
149 
		  %>
 149 
		  %>
150 
          <tr>
 150 
          <tr>
151 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" <%=iif(bEnabled, "", " disabled ")%> <%=iif(bGranted, "checked", "")%>></td>
 151 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" <%=iif(bEnabled, "", " disabled ")%> <%=iif(bGranted, "checked", "")%>></td>