Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2365 dpurdie 1
<% if (not IsEmpty(Eval("objAccessControl"))) Then
2
    If (objAccessControl.UserLogedIn) Then %>
3
        <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:2">
4
        <% If IsEmpty(Eval("MenuHeaderDefined")) Then %>
5
            <a href="#"><img src="<%=strRelativePath%>images/i_logout_disabled.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a>
6
        <% Else %>
7
            <a href="<%=strRelativePath%>_Logout.asp"><img src="<%=strRelativePath%>images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a>
8
        <%End If%>
9
</div>
10
    <%End If%>
11
<%End If%>
12
 
13
<%' Highlight Development System: Green for Development, Red for Live Database
14
If (IsEmpty(Application("LiveSystem"))) Then
15
    Dim DevStyle, DevExtraText
16
    DevExtraText = ""
17
    If OraDatabase.DatabaseName = "RELEASEM" Then
18
        DevStyle = "background-color:red;"
19
        DevExtraText = " Live Database"
20
    Else
21
        DevStyle = "background-color:#66CC00;"
22
    End If
119 ghuddy 23
%>
2365 dpurdie 24
<div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">
25
    <center style="<%=DevStyle%>;">Development WebServer:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%></center>
26
</div>
119 ghuddy 27
<%End If%>
2365 dpurdie 28
 
119 ghuddy 29
<table width="100%" border="0" cellspacing="0" cellpadding="0">
2365 dpurdie 30
  <tr>
31
    <td bgcolor="#FFFFFF"><a href="<%=strRelativePath%>index.asp" target="_parent" alt="Home" title="Home">
32
        <img src="<%=strRelativePath%>images/b_release_manager.jpg" border="0"></a>
119 ghuddy 33
    </td>
2365 dpurdie 34
    <% if not IsEmpty(Eval("MenuHeaderDefined")) Then %>
35
    <td valign="bottom" align="right">
36
        <%Call Print_TopRight_Menu_ROW1 ()%>
37
    <% End If %>
38
    </td>
119 ghuddy 39
  </tr>
2365 dpurdie 40
  <tr>
41
    <td bgcolor="#000000"><img src="<%=strRelativePath%>images/spacer.gif" width="1" height="1"></td>
42
    <td background="<%=strRelativePath%>images/h_dot.gif" height="1"></td>
119 ghuddy 43
  </tr>
2365 dpurdie 44
 
45
 
46
  <% if not IsEmpty(Eval("MenuHeaderDefined")) Then
47
	  If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") OR (Request("pv_id") <> "") Then %>
48
  <tr>
119 ghuddy 49
    <td align=left noWrap valign=center width=150>
50
	  <!-- TOP-LEFT MENU --------->
51
	  <%
52
	  If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") Then
53
	  	Call Print_TopLeft_Menu
54
 
55
	  ElseIf Request("pv_id") <> "" Then
56
	  	Call Print_Package_TopLeft_Menu
57
 
58
	  End If%>
59
	  <!--------------------------->
60
    </td>
61
    <td align="right"> 
62
	  <!-- TOP-RIGHT MENU ROW2 ---->
63
      <%
64
	  If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") Then
65
	  	Call Print_TopRight_Menu_ROW2
66
	  End If
67
	  %>
68
	  <!--------------------------->
69
    </td>
70
  </tr>
71
  <tr> 
2365 dpurdie 72
    <td align=left noWrap valign=center width=150 background="<%=strRelativePath%>images/h_dot.gif" height="1"></td>
73
    <td background="<%=strRelativePath%>images/h_dot.gif" height="1"></td>
119 ghuddy 74
  </tr>
2365 dpurdie 75
<% End If %>
76
<% End If %>
77
</table>