Subversion Repositories DevTools

Rev

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

Rev 3947 Rev 5064
Line 96... Line 96...
96 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 96 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
97 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
 97 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
98 
          <table class="full_table">
 98 
          <table class="full_table">
99 
          <tr class="form_item">
 99 
          <tr class="form_item">
100 
          <td>You have access to do:</td>
 100 
          <td>You have access to do:</td>
101 
          <!-- Project Specfic Permissions don't appear to be used in deployment Manager
 101 
          <!-- Project Specfic Permissions don't appear to be used in deployment Manager -->
102 
          <td align="right">
 102 
          <td align="right">
103 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
 103 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
104 
                    <option value="">-- Select Project --</option>
 104 
                    <option value="">-- Select Project --</option>
105 
                    <%
 105 
                    <%
106 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
 106 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
Line 113... Line 113...
113 
                    rsQry.Close
 113 
                    rsQry.Close
114 
                    Set rsQry = Nothing
 114 
                    Set rsQry = Nothing
115 
                    %>
 115 
                    %>
116 
                 </select>
 116 
                 </select>
117 
          </td>
 117 
          </td>
118 
          -->
 - 
 
119 
          </table>
 118 
          </table>
120 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 119 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
 120 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
122 
                  <td><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
 121 
                  <td><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
123 
                  <td><b>Description</b><%=Quick_Help("ad_description")%></td>
 122 
                  <td><b>Description</b><%=Quick_Help("ad_description")%></td>
124 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
 123 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
125 
          <!-- Project Specfic Permissions don't appear to be used in deployment Manager
 - 
 
126 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
 124 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
127 
         -->
 - 
 
128 
                </tr>
 125 
                </tr>
129 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
 126 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
130 
                  <td colspan=2></td>
 127 
                  <td colspan=2></td>
131 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
 128 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
132 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
 129 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
133 
          <!-- Project Specfic Permissions don't appear to be used in deployment Manager
 - 
 
134 
                  <td><b>Active</b></td>
 130 
                  <td><b>Active</b></td>
135 
                  <td><b>Visible</b></td>
 131 
                  <td><b>Visible</b></td>
136 
         -->
 - 
 
137 
                </tr>
 132 
                </tr>
138 
				<%
 133 
				<%
139 
                sqlQuery = "select obj_name, obj_description " &_
 134 
                sqlQuery = "select obj_name, obj_description " &_
140 
                            "from control_objects co " &_
 135 
                            "from control_objects co " &_
141 
                            "where co.app_id = :APP_ID " &_
 136 
                            "where co.app_id = :APP_ID " &_
Line 149... Line 144...
149 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
 144 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
150 
                  <td nowrap><%=rsTemp("obj_name")%></td>
 145 
                  <td nowrap><%=rsTemp("obj_name")%></td>
151 
                  <td><%=rsTemp("obj_description")%></td>
 146 
                  <td><%=rsTemp("obj_description")%></td>
152 
                  <td align="right"><%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
 147 
                  <td align="right"><%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
153 
                  <td><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
 148 
                  <td><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
154 
          <!-- Project Specfic Permissions don't appear to be used in deployment Manager
 - 
 
155 
                  <%If parProj <> "" Then %>
 149 
                  <%If parProj <> "" Then %>
156 
                    <td align="right"><%=chkbox(objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 150 
                    <td align="right"><%=chkbox(objAccessControl.IsDataActive ("DM_PROJECTS", parProj, rsTemp("obj_name")))%></td>
157 
                    <td><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 151 
                    <td><%=chkbox(objAccessControl.IsDataVisible ("DM_PROJECTS", parProj, rsTemp("obj_name")))%></td>
158 
                  <%End If%>
 152 
                  <%End If%>
159 
         -->
 - 
 
160 
                </tr>
 153 
                </tr>
161 
				<%rsTemp.MoveNext
 154 
				<%rsTemp.MoveNext
162 
	    	    WEnd
 155 
	    	    WEnd
163 
				rsTemp.Close()
 156 
				rsTemp.Close()
164 
				Set rsTemp = nothing
 157 
				Set rsTemp = nothing
165 
				%>
 158 
				%>
166 
              </table>
 159 
              </table>
167 
			  <br><br>
 160 
			  <br><br>
- 
 
 161 
              <%
- 
 
 162 
              'objAccessControl.dumpAll()
- 
 
 163 
              'objAccessControl.bDebug = true
- 
 
 164 
              'Call objAccessControl.IsDataVisible ( "DM_PROJECTS","701","oProjectList" )
- 
 
 165 
              %>
168 
			</td>
 166 
			</td>
169 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 167 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
170 
        </tr>
 168 
        </tr>
171 
        <tr>
169 
        <tr>
172 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 170 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>