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 130... Line 130...
130 
              </tr>
 130 
              </tr>
131 
            </table></td>
 131 
            </table></td>
132 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Description</td>
 132 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Description</td>
133 
          </tr>
 133 
          </tr>
134 
		  <%
 134 
		  <%
- 
 
 135 
		  OraDatabase.Parameters.Add "USER_ID_USER", objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
135 
		  OraDatabase.Parameters.Add "USER_ID", Request("user_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
136 
		  OraDatabase.Parameters.Add "USER_ID", Request("user_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
136 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
137 
		  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
137
138
138 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetUserRoleList.sql"), ORADYN_DEFAULT )
 139 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetUserRoleList.sql"), ORADYN_DEFAULT )
139
140
140 
		  OraDatabase.Parameters.Remove "APP_ID"
 141 
		  OraDatabase.Parameters.Remove "APP_ID"
141 
		  OraDatabase.Parameters.Remove "USER_ID"
 142 
		  OraDatabase.Parameters.Remove "USER_ID"
- 
 
 143 
		  OraDatabase.Parameters.Remove "USER_ID_USER"
142
144
143
- 
 
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
- 
 
 147 
                Dim bEnabled : bEnabled = (canActionControl("canAssignRoleToUser") OR rsQry("can_delegate")) AND NOT bGranted
- 
 
 148 
                Dim ImageName : ImageName = iif(bEnabled, LIMG_ROLE, LIMG_ROLE_OFF)
146 
		  %>
 149 
		  %>
147 
          <tr>
 150 
          <tr>
148 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
 151 
		  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" <%=iif(bEnabled, "", " disabled ")%> <%=iif(bGranted, "checked", "")%>></td>
149 
            <td nowrap class="body_row"><%=LIMG_ROLE &  rsQry("role_name")%></td>
 152 
            <td nowrap class="body_row"><%=ImageName &  rsQry("role_name")%></td>
150 
            <td class="body_rowlite"><%=rsQry("comments")%></td>
 153 
            <td class="body_rowlite"><%=rsQry("comments")%></td>
151 
          </tr>
 154 
          </tr>
152 
		  <%rsQry.MoveNext%>
 - 
 
153
- 
 
154 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 - 
 
155 
          <tr>
 155 
          <tr>
156 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 156 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
157 
          </tr>
 157 
          </tr>
- 
 
 158 
 
158 
		  <%End If%>
 159 
		  <%rsQry.MoveNext%>
159
- 
 
160 
		  <%
 160 
		  <%
161 
		  WEnd
 161 
		  WEnd
162
162
163
163
164 
		  %>
 164 
		  %>