Subversion Repositories DevTools

<!-- _header.asp -->
<!-- Global Shortcuts -->
<div id="Layer1" style="position:absolute; left:2; top:2; height:14px; z-index:2">
<% if (not IsEmpty(Eval("objAccessControl"))) Then
    If (objAccessControl.UserLogedIn) Then %>
        <% If IsEmpty(Eval("MenuHeaderDefined")) Then %>
            <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>
        <% Else %>
            <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>
        <%End If%>
    <%End If%>
<%End If%>
<a href="<%=strRelativePath%>index.asp"><img src="<%=strRelativePath%>images/i_home.png" width="14" height="14" border="0" alt="Home" title="Home"></a>
<a href="<%=strRelativePath%>index.asp?listby=1"><img src="<%=strRelativePath%>images/i_package.png" width="14" height="14" border="0" alt="Packages" title="Packages"></a>
<a href="<%=strRelativePath%>index.asp?listby=2"><img src="<%=strRelativePath%>images/i_files.png" width="14" height="14" border="0" alt="Files" title="Files"></a>
</div>

<%' Highlight Development Systems
If ( NOT IsEmpty(Application("TestBannerStyle"))) Then
    Dim DevStyle, DevExtraText, DevTitle
    DevStyle = Application("TestBannerStyle")
    DevTitle = Application("TestBanner")
    
    DevExtraText = ""
    If ( NOT IsEmpty(Application("LiveSystem"))) Then
        DevExtraText = " Live Database"
    End If
%>
<div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font:16px tahoma,sans-serif;text-decoration:none;">
    <center style="<%=DevStyle%>;"><%=DevTitle%>:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%></center>
</div>
<%End If%>
<!-- MENU LAYERS -------------------------------------->
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"></div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#FFFFFF" width="1%">
      <a href="<%=strRelativePath%>index.asp" target="_parent" alt="Home" title="Home">
        <img src="<%=strRelativePath%>images/b_release_manager.jpg" border="0" style="display: block;">
      </a>
    </td>
    <% if not IsEmpty(Eval("MenuHeaderDefined")) Then %>
    <td valign="bottom" align="right">
        <%Call Print_TopRight_Menu_ROW1 ()%>
    </td>
    <% End If %>
  </tr>

  <tr>
    <td colspan=2 style="height:1px;background-color:black"></td>
  </tr>

  <% if not IsEmpty(Eval("MenuHeaderDefined")) Then
          If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") OR (Request("pv_id") <> "") Then %>
  <tr>
    <td align=left noWrap valign=center width=150>
          <!-- TOP-LEFT MENU --------->
          <%
          If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") Then
                Call Print_TopLeft_Menu
                
          ElseIf Request("pv_id") <> "" Then
                Call Print_Package_TopLeft_Menu
                
          End If%>
          <!-- End TOP-LEFT MENU --------->
    </td>
    <td align="right"> 
          <!-- TOP-RIGHT MENU ROW2 ---->
      <%
          If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") Then
                Call Print_TopRight_Menu_ROW2
          End If
          %>
          <!-- End TOP-RIGHT MENU ROW2 ---->
    </td>
  </tr>
  <tr>
    <td colspan=2 style="height:1px;background-color:black"</td>
  </tr>
<% End If %>
<% End If %>
</table>