Subversion Repositories DevTools

Rev

Rev 5512 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5354 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|			          Role General					 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
Response.Expires = 0
12
%>
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/_role_common.asp"-->
17
<%
18
'------------ ACCESS CONTROL ------------------
19
%>
20
<!--#include file="_access_control_general.asp"-->
21
<%
22
'------------ VARIABLE DEFINITION -------------
23
Dim sNode
24
Dim rsQry
25
'------------ CONSTANTS DECLARATION -----------
26
'------------ VARIABLE INIT -------------------
27
'------------ CONDITIONS ----------------------
28
'----------------------------------------------
29
%>
30
<%
31
'------------ RUN BEFORE PAGE RENDER ----------
32
Call GetRoleDetails ( parRole_id, parApp_id, objRoleCollector )
33
'----------------------------------------------
34
%>
35
<html>
36
<head>
37
<title>Access Manager</title>
38
<link rel="shortcut icon" href="<%=FavIcon%>"/>
39
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
40
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
41
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
42
<script language="JavaScript" src="scripts/common.js"></script>
6658 dpurdie 43
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
5354 dpurdie 44
</head>
45
 
46
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
47
<!-- HEADER ++++++++++++++++++++++ -->
48
<!--#include file="_header.asp"-->
49
<!-- +++++++++++++++++++++++++++++ -->
50
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
51
  <tr>
52
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
53
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
54
	<!--#include file="_treeNavigator.asp"-->  
55
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
56
	</td>
57
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
58
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
59
      <tr>
60
        <td background="images/bg_drk_bage_pane.gif">
61
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
62
            <tr>
63
              <td nowrap class="body_txt"></td>
64
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
65
            </tr>
66
          </table>
67
		</td>
68
      </tr>
69
	  <tr>
70
        <td class="menu_crumbttl"><%Call RenderTitle ( objRoleCollector )%></td>
71
      </tr>
72
      <tr>
73
        <td>
74
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
75
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
76
			<!--#include file="_tabs_definition.asp"-->
77
			<%
78
			Set objTabControl = New TabControl
79
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
80
			objTabControl.TabStyle = "StyleMac"
81
			objTabControl.AddTabDefnition ( arrRole )
82
			objTabControl.DisableByName ( "Data Filtering" )
83
			objTabControl.SelectByName ( "General" )
84
			objTabControl.Render ()
85
			%>
86
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
87
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
88
          <tr>
89
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
90
            <td width="100%" valign="top">
91
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
92
                <tr>
93
                  <td class='body_txt'>
94
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
95
                  <%=objRoleCollector.Item ("role_comments")%>
96
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
97
				  </td>
98
                </tr>
99
                <tr>
100
                    <td>
101
                    <% If canActionControl("canCreateRoles") Then%>
102
                    <button class="form_btn" onclick="MM_openBrWindow('wEditRole.asp?rmode=1&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','Edit Role','scrollbars=yes,resizable=yes,width=600,height=350')">
103
                        Edit Role <%=LIMG_EDIT%>
104
                    </button>
105
                    <%Else%>
106
                    <span class="form_btn_dis" >
107
                        Edit Role <%=LIMG_EDIT_OFF%>
108
                    </span>
109
                    <%End If%>
110
                    </td>
111
                </tr>
112
              </table>
113
			</td>
114
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
115
          </tr>
116
         </table>
117
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
118
           <tr>
119
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
120
           </tr>
121
         </table>
122
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
123
         <br></td>
124
      </tr>
125
    </table></td>
126
  </tr>
127
</table>
128
<!-- FOOTER ++++++++++++++++++++++ -->
129
<!--#include file="_footer.asp"-->
130
<!-- +++++++++++++++++++++++++++++ -->
131
</body>
132
</html>
133
<%
134
'------------ RUN AFTER PAGE RENDER -----------
135
'----------------------------------------------
136
%>
2 rsolanki 137
<!--#include file="common/globals_destructor.asp"-->