Rev 6579 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| MEMBERS |'| MY ROLES - Access Details |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_login.asp"--><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsTempDim rsQryDim sqlQueryDim parProjDim bAdvMode : bAdvMode = FALSE'------------ Constants Declaration -----------'------------ Variable Init -------------------parProj = QStrPar("proj_id")'----------------------------------------------' Create a chkbox and set its stateFunction chkbox( value )chkbox = "<input type='checkbox' disabled"If value Then chkbox = chkbox & " checked=yes"chkbox = chkbox & "/>"End Function%><html><head><title>Release Manager</title><link rel="shortcut icon" href="<%=FavIcon%>"/><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css"><link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css"><script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script><!--#include file="_jquery_includes.asp"--><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script><!-- TIPS --><script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script><script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script><script language="JavaScript" type="text/JavaScript">formTips.tips.ad_action = stdTip(200, 'ACTION', 'The internal name of the access control element.' );formTips.tips.ad_description = stdTip(200, 'DESCRIPTION', 'A description of the access control element.' );formTips.tips.ad_access = stdTip(200, 'Project Independent Permissions', 'These are the basic permissions before project specific control elements have been applied.' );formTips.tips.ad_data = stdTip(200, 'Project Specific Permissions', 'These are the permissions after project-specfic control elements have been applied.' );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.' );formTips.tips.ad_active = stdTip(200, 'ACTIVE', 'The associated action should be available.<br>Controls should be visible for an action to be available.' );formTips.tips.ad_normal = stdTip(200, 'Permission outside of project context','The permission value when it is not used within a project.' +'<p>Note:Most permssions are used within project scope.');formTips.tips.ad_inproject = stdTip(200, 'Permission within Project','The permission value when it is used within the context of a project.' +'<p>Note:Most permssions are used within project context.');formTips.tips.ad_raw = stdTip(200, 'Raw Data','Raw data from Access Manager' +'<p>Raw data is processed into a useable form.');formTips.tips.ad_processed = stdTip(200, 'Processed values','Values that have been processed. These are the values that will be sued within Release Manager.');</script><!-- Local Java Script --><script language="JavaScript">// Refresh this page with the specified projectfunction updatePage(proj_id){window.location.replace("members_my_access_details.asp?proj_id=" + proj_id);}</script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_member_dark.gif" valign="top"><!-- MEMBERS MENU ----------------------------------------------><!--#include file="members_menu_def.asp"--><%Call Member_Menu( "my_roles" )%><!-- MEMBERS MENU END ------------------------------------------></td><td width="1%" valign="top" background="images/bg_member_light.gif"></td><td rowspan="2" valign="top" width="70%" background="images/bg_member_light.gif" nowrap><!-------------------------------------------><br><span class="mmb_ttl">My Access Details</span><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><form><tr><td width="1%"> </td><td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td><td width="1%"> </td></tr><tr><td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td><td background="images/bg_member_dark.gif" align="left" class="wform_ttl"> </td><td align="right" valign="top" width="1%" background="images/bg_member_dark.gif"> </td></tr><tr><td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td><td bgcolor="#FFFFFF" valign="top" class="form_item"><table class="full_table"><tr class="form_item"><td>You have access to do:</td><td align="right">Active Project:<select name="projA" class="form_item" onChange="updatePage(this.value)" ><option value="">-- Select Project --</option><%OraDatabase.Parameters.Add "PROJ_ID", parProj, ORAPARM_INPUT, ORATYPE_NUMBERSet rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))OraDatabase.Parameters.Remove "PROJ_ID"While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%><option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option><%rsQry.MoveNextWEndrsQry.CloseSet rsQry = Nothing%></select></td></table><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap"><td rowspan=3><b>Action </b><%=Quick_Help("ad_action")%></td><td rowspan=3><b>Description</b><%=Quick_Help("ad_description")%></td><% If bAdvMode Then %><td colspan=4 align="center"><b>Raw</b><%=Quick_Help("ad_raw")%></td><%End If%><td colspan=4 align="center"><b>Processed</b><%=Quick_Help("ad_processed")%></td></tr><tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap"><% If bAdvMode Then %><td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td><td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td><%End If%><td colspan=2 align="center"><b>Normal</b><%=Quick_Help("ad_normal")%></td><td colspan=2 align="center"><b>InProject</b><%=Quick_Help("ad_inproject")%></td></tr><tr background="images/bg_form_lightbluedark.gif" class="form_field"><% If bAdvMode Then %><td><b>Visible</b><%=Quick_Help("ad_visible")%></td><td><b>Active</b><%=Quick_Help("ad_active")%></td><td><b>Visible</b></td><td><b>Active</b></td><%End If%><td><b>Visible</b></td><td><b>Active</b></td><td><b>Visible</b><%=Quick_Help("ad_visible")%></td><td><b>Active</b><%=Quick_Help("ad_active")%></td></tr><%sqlQuery = "select obj_name, obj_description " &_"from control_objects co " &_"where co.app_id = :APP_ID " &_"order by UPPER(co.obj_name)"OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBERSet rsTemp = OraDatabase.DbCreateDynaset(sqlQuery, cint(0))OraDatabase.Parameters.Remove "APP_ID"While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%><tr background="images/bg_form_lightgray.gif" class="form_item"><td nowrap><%=rsTemp("obj_name")%></td><td><%=rsTemp("obj_description")%></td><% If bAdvMode Then %><td align="right"><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td><td> <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td><%If parProj <> "" Then %><td align="right"><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td><td> <%=chkbox(objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td><%Else%><td></td><td></td><%End If%><%End If%><td align="right"><%=chkbox(canShowControl(rsTemp("obj_name")))%></td><td> <%=chkbox(canActionControl(rsTemp("obj_name")))%></td><%If parProj <> "" Then %><td align="right"><%=chkbox(canShowControlInProject(rsTemp("obj_name")))%></td><td> <%=chkbox(canActionControlInProject(rsTemp("obj_name")))%></td><%Else%><td></td><td></td><%End If%></tr><%rsTemp.MoveNextWEndrsTemp.Close()Set rsTemp = nothing%></table><br><br><%If bAdvMode ThenobjAccessControl.dumpAll()'objAccessControl.bDebug = trueEnd If%></td><td width="1%" background="images/lbox_bgside_white.gif"> </td></tr><tr><td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td><td background="images/bg_member_dark.gif"></td><td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td></tr></form></table><!--------------------------------------------------------></td><td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"></td></tr><tr><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><td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html>