rt/webrt/Elements/Header

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
   2 <HTML>
   3 <HEAD>
   4 <TITLE><%$Title%></TITLE>
   5 <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
   6
   7 %# TODO this gets called from error. but I have no idea what it might
   8 %# be used for. can we whack it?  -jesse
   9 % if ($Code) {
  10 <META HTTP-EQUIV VALUE="<%$Code%> <%$Why%>">
  11 % }
  12 % if ($Refresh > 0) {
  13 <META HTTP-EQUIV="REFRESH" CONTENT="<%$Refresh%>">
  14 % }
  15
  16 <link rel="stylesheet" href="<%$RT::WebPath%>/NoAuth/webrt.css" type="text/css">
  17 </HEAD>
  18 <BODY BGCOLOR="<%$BgColor%>">
  19 % if ($ShowBar) {
  20 <TABLE BORDER=0 WIDTH=100% CELLSPACING=0 BGCOLOR="#993333">
  21 <TR VALIGN=TOP>
  22 <TD><IMG SRC="<%$RT::LogoURL%>" alt="RT"></TD>
  23 <TD VALIGN=CENTER ALIGN=LEFT>
  24 <font size=+2 color="#ffffff">
  25 <B>
  26 <%$Title%>
  27 </B>
  28 </font>
  29 </TD>
  30 <TD ALIGN=RIGHT>
  31 <font color="#ffffff">
  32 % if ($session{'CurrentUser'}) {
  33 Signed in as <b><%$session{'CurrentUser'}->Name%></b>.<BR>
  34 % if ($session{'CurrentUser'}->HasSystemRight('ModifySelf')) {
  35 [<A class='inverse' HREF="<%$RT::WebPath%>/User/Prefs.html" >Preferences</A>]
  36 % }
  37 % unless ($RT::WebExternalAuth) {
  38 [<A class='inverse' HREF="<%$RT::WebPath%>/NoAuth/Logout.html">Logout</a>]
  39 % }
  40 % } else {
  41 Not logged in.
  42 % }
  43 </font>
  44 </TD>
  45 </TR>
  46 </TABLE>
  47
  48 <BR>
  49 % }
  50 <%ARGS>
  51 $Title => 'WebRT'
  52 $Code => undef
  53 $Refresh => undef
  54 $Why => undef
  55 $BgColor => '#ffffff'
  56 $ShowBar => 1
  57 </%ARGS>
  58 <%INIT>
  59 $Title = "RT/$RT::rtname: ".$Title;
  60 </%INIT>
  61