Subversion Repositories DevTools

<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 System: Green for Development, Red for Live Database

If (IsEmpty(Application("LiveSystem"))) Then

    Dim DevStyle, DevExtraText

    DevExtraText = ""

    If OraDatabase.DatabaseName = "RELEASEM" Then

        DevStyle = "background-color:red;"

        DevExtraText = " Live Database"

    Else

        DevStyle = "background-color:#66CC00;"

    End If

%>

<div id="Layer2" style="position:absolute; left:0; top:0; width:100%; z-index:1;font-family: tahoma,sans-serif;">

    <center style="<%=DevStyle%>;">Development WebServer:<%=request.servervariables("server_name")%> Database:<%=OraDatabase.DatabaseName%><%=DevExtraText%></center>

</div>

<%End If%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td bgcolor="#FFFFFF"><a href="<%=strRelativePath%>index.asp" target="_parent" alt="Home" title="Home">

        <img src="<%=strRelativePath%>images/b_release_manager.jpg" border="0"></a>

    </td>

    <% if not IsEmpty(Eval("MenuHeaderDefined")) Then %>

    <td valign="bottom" align="right">

        <%Call Print_TopRight_Menu_ROW1 ()%>

    <% End If %>

    </td>

  </tr>

  <tr>

    <td bgcolor="#000000"><img src="<%=strRelativePath%>images/spacer.gif" width="1" height="1"></td>

    <td background="<%=strRelativePath%>images/h_dot.gif" height="1"></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%>

	  <!--------------------------->

    </td>

    <td align="right"> 

	  <!-- TOP-RIGHT MENU ROW2 ---->

      <%

	  If (Request("rtag_id") <> "") OR  (Request("proj_id") <> "") Then

	  	Call Print_TopRight_Menu_ROW2

	  End If

	  %>

	  <!--------------------------->

    </td>

  </tr>

  <tr> 

    <td align=left noWrap valign=center width=150 background="<%=strRelativePath%>images/h_dot.gif" height="1"></td>

    <td background="<%=strRelativePath%>images/h_dot.gif" height="1"></td>

  </tr>

<% End If %>

<% End If %>

</table>