Subversion Repositories DevTools

Rev

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

Rev 4170 Rev 5061
Line 25... Line 25...
25 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
26 
Dim rsTemp
 26 
Dim rsTemp
27 
Dim rsQry
 27 
Dim rsQry
28 
Dim sqlQuery
 28 
Dim sqlQuery
29 
Dim parProj
 29 
Dim parProj
- 
 
 30 
Dim bAdvMode  : bAdvMode = FALSE
30 
 
 31 
 
31 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
33 
parProj = QStrPar("proj_id")
 34 
parProj = QStrPar("proj_id")
34 
 
 35 
 
Line 49... Line 50...
49 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 50 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
50 
<script language="JavaScript" src="images/common.js"></script>
 51 
<script language="JavaScript" src="images/common.js"></script>
51 
<!-- TIPS -->
 52 
<!-- TIPS -->
52 
<script language="JavaScript" src="images/tipster.js"></script>
 53 
<script language="JavaScript" src="images/tipster.js"></script>
53 
<script language="JavaScript" src="images/_help_tips.js"></script>
 54 
<script language="JavaScript" src="images/_help_tips.js"></script>
- 
 
 55 
<script language="JavaScript" type="text/JavaScript">
- 
 
 56 
formTips.tips.ad_action       = stdTip(200, 'ACTION', 'The internal name of the access control element.' );
- 
 
 57 
formTips.tips.ad_description  = stdTip(200, 'DESCRIPTION', 'A description of the access control element.' );
- 
 
 58 
formTips.tips.ad_access       = stdTip(200, 'Project Independent Permissions', 'These are the basic permissions before project specific control elements have been applied.' );
- 
 
 59 
formTips.tips.ad_data         = stdTip(200, 'Project Specific Permissions', 'These are the permissions after project-specfic control elements have been applied.' );
- 
 
 60 
formTips.tips.ad_visible      = stdTip(200, 'VISIBLE', 'The associated action may have a control button that is shown to the user.<br>If the action is not active then the control should not be visible to the user.' );
- 
 
 61 
formTips.tips.ad_active       = stdTip(200, 'ACTIVE', 'The associated action should be available.<br>Controls should be visible for an action to be available.' );
- 
 
 62 
 
- 
 
 63 
formTips.tips.ad_normal = stdTip(200, 'Permission outside of project context',
- 
 
 64 
                                 'The permission value when it is not used within a project.' +
- 
 
 65 
                                 '<p>Note:Most permssions are used within project scope.');
- 
 
 66 
formTips.tips.ad_inproject = stdTip(200, 'Permission within Project',
- 
 
 67 
                                  'The permission value when it is used within the context of a project.' +
- 
 
 68 
                                  '<p>Note:Most permssions are used within project context.');
- 
 
 69 
formTips.tips.ad_raw = stdTip(200, 'Raw Data',
- 
 
 70 
                                  'Raw data from Access Manager' +
- 
 
 71 
                                  '<p>Raw data is processed into a useable form.');
- 
 
 72 
formTips.tips.ad_processed = stdTip(200, 'Processed values',
- 
 
 73 
                                  'Values that have been processed. These are the values that will be sued within Release Manager.');
- 
 
 74 
</script>
54 
<!-- Local Java Script -->
 75 
<!-- Local Java Script -->
55 
<script language="JavaScript">
 76 
<script language="JavaScript">
56 
// Refresh this page with the specified project
 77 
// Refresh this page with the specified project
57 
function updatePage(proj_id){
 78 
function updatePage(proj_id){
58 
    window.location.replace("members_my_access_details.asp?proj_id=" + proj_id);
 79 
    window.location.replace("members_my_access_details.asp?proj_id=" + proj_id);
Line 95... Line 116...
95 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 116 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
96 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
 117 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
97 
          <table class="full_table">
 118 
          <table class="full_table">
98 
          <tr class="form_item">
 119 
          <tr class="form_item">
99 
          <td>You have access to do:</td>
 120 
          <td>You have access to do:</td>
100 
          <td align="right">
 121 
          <td align="right">Active Project:
101 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
 122 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
102 
                    <option value="">-- Select Project --</option>
 123 
                    <option value="">-- Select Project --</option>
103 
                    <%
 124 
                    <%
104 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
 125 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
105 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
 126 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
Line 114... Line 135...
114 
                 </select>
 135 
                 </select>
115 
          </td>
 136 
          </td>
116 
          </table>
 137 
          </table>
117 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 138 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
118 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
 139 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
119 
                  <td><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
 140 
                  <td rowspan=3><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
120 
                  <td><b>Description</b><%=Quick_Help("ad_description")%></td>
 141 
                  <td rowspan=3><b>Description</b><%=Quick_Help("ad_description")%></td>
- 
 
 142 
                  <% If bAdvMode Then %>
- 
 
 143 
                  <td colspan=4 align="center"><b>Raw</b><%=Quick_Help("ad_raw")%></td>
- 
 
 144 
                  <%End If%>
- 
 
 145 
                  <td colspan=4 align="center"><b>Processed</b><%=Quick_Help("ad_processed")%></td>
- 
 
 146 
                </tr>
- 
 
 147 
 
- 
 
 148 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
- 
 
 149 
                  <% If bAdvMode Then %>
121 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
 150 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
122 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
 151 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
- 
 
 152 
                  <%End If%>
- 
 
 153 
                  <td colspan=2 align="center"><b>Normal</b><%=Quick_Help("ad_normal")%></td>
- 
 
 154 
                  <td colspan=2 align="center"><b>InProject</b><%=Quick_Help("ad_inproject")%></td>
123 
                </tr>
 155 
                </tr>
- 
 
 156 
 
124 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
 157 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
125 
                  <td colspan=2></td>
 158 
                  <% If bAdvMode Then %>
126 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
 - 
 
127 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
 159 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
- 
 
 160 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
- 
 
 161 
                  <td><b>Visible</b></td>
128 
                  <td><b>Active</b></td>
 162 
                  <td><b>Active</b></td>
- 
 
 163 
                  <%End If%>
129 
                  <td><b>Visible</b></td>
 164 
                  <td><b>Visible</b></td>
- 
 
 165 
                  <td><b>Active</b></td>
- 
 
 166 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
- 
 
 167 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
130 
                </tr>
 168 
                </tr>
131 
				<%
 169 
				<%
132 
                sqlQuery = "select obj_name, obj_description " &_
 170 
                sqlQuery = "select obj_name, obj_description " &_
133 
                            "from control_objects co " &_
 171 
                            "from control_objects co " &_
134 
                            "where co.app_id = :APP_ID " &_
 172 
                            "where co.app_id = :APP_ID " &_
Line 140... Line 178...
140 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 178 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
141 
				%>
 179 
				%>
142 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
 180 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
143 
                  <td nowrap><%=rsTemp("obj_name")%></td>
 181 
                  <td nowrap><%=rsTemp("obj_name")%></td>
144 
                  <td><%=rsTemp("obj_description")%></td>
 182 
                  <td><%=rsTemp("obj_description")%></td>
- 
 
 183 
                  <% If bAdvMode Then %>
145 
                  <td align="right"><%=chkbox(objAccessControl.IsActive (rsTemp("obj_name")))%></td>
 184 
                  <td align="right"><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
146 
                  <td>              <%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
 185 
                  <td>              <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
147 
                  <%If parProj <> "" Then %>
 186 
                  <%If parProj <> "" Then %>
148 
                    <td align="right"><%=chkbox(objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 187 
                    <td align="right"><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
149 
                    <td>              <%=chkbox(objAccessControl.IsDataVisible("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 188 
                    <td>              <%=chkbox(objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
- 
 
 189 
                  <%Else%>
- 
 
 190 
                  <td></td>
- 
 
 191 
                  <td></td>
- 
 
 192 
                  <%End If%>
- 
 
 193 
                  <%End If%>
- 
 
 194 
                  <td align="right"><%=chkbox(canShowControl(rsTemp("obj_name")))%></td>
- 
 
 195 
                  <td>              <%=chkbox(canActionControl(rsTemp("obj_name")))%></td>
- 
 
 196 
 
- 
 
 197 
                  <%If parProj <> "" Then %>
- 
 
 198 
                  <td align="right"><%=chkbox(canShowControlInProject(rsTemp("obj_name")))%></td>
- 
 
 199 
                  <td>              <%=chkbox(canActionControlInProject(rsTemp("obj_name")))%></td>
- 
 
 200 
                  <%Else%>
- 
 
 201 
                  <td></td>
- 
 
 202 
                  <td></td>
150 
                  <%End If%>
 203 
                  <%End If%>
151 
                </tr>
 204 
                </tr>
152 
				<%rsTemp.MoveNext
 205 
				<%rsTemp.MoveNext
153 
	    	    WEnd
 206 
	    	    WEnd
154 
				rsTemp.Close()
 207 
				rsTemp.Close()
155 
				Set rsTemp = nothing
 208 
				Set rsTemp = nothing
156 
				%>
 209 
				%>
157 
              </table>
 210 
              </table>
158 
			  <br><br>
 211 
			  <br><br>
- 
 
 212 
              <%
- 
 
 213 
              If bAdvMode Then
- 
 
 214 
                  objAccessControl.dumpAll()
- 
 
 215 
                  'objAccessControl.bDebug = true
- 
 
 216 
              End If
- 
 
 217 
              %>
159 
			</td>
 218 
			</td>
160 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 219 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
161 
        </tr>
 220 
        </tr>
162 
        <tr>
221 
        <tr>
163 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 222 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
Line 173... Line 232...
173 
  <tr>
232 
  <tr>
174 
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
 233 
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
175 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
 234 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
176 
  </tr>
 235 
  </tr>
177 
</table>
 236 
</table>
- 
 
 237 
 
178 
<!-- FOOTER -->
 238 
<!-- FOOTER -->
179 
<!--#include file="_footer.asp"-->
 239 
<!--#include file="_footer.asp"-->
180 
</body>
 240 
</body>
181 
</html>
 241 
</html>
182 
<%
 242 
<%