Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 4170
Line 140... Line 140...
140
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
140
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
141
				%>
141
				%>
142
				<tr background="images/bg_form_lightgray.gif" class="form_item">
142
				<tr background="images/bg_form_lightgray.gif" class="form_item">
143
                  <td nowrap><%=rsTemp("obj_name")%></td>
143
                  <td nowrap><%=rsTemp("obj_name")%></td>
144
                  <td><%=rsTemp("obj_description")%></td>
144
                  <td><%=rsTemp("obj_description")%></td>
145
                  <td align="right"><%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
145
                  <td align="right"><%=chkbox(objAccessControl.IsActive (rsTemp("obj_name")))%></td>
146
                  <td><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
146
                  <td>              <%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
147
                  <%If parProj <> "" Then %>
147
                  <%If parProj <> "" Then %>
148
                    <td align="right"><%=chkbox(objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
148
                    <td align="right"><%=chkbox(objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
149
                    <td><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
149
                    <td>              <%=chkbox(objAccessControl.IsDataVisible("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
150
                  <%End If%>
150
                  <%End If%>
151
                </tr>
151
                </tr>
152
				<%rsTemp.MoveNext
152
				<%rsTemp.MoveNext
153
	    	    WEnd
153
	    	    WEnd
154
				rsTemp.Close()
154
				rsTemp.Close()