httemplate/elements/header.html

   1 <%
   2   my($title, $menubar) = ( shift, shift );
   3   my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
   4   my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
   5   my $conf = new FS::Conf;
   6
   7 %>
   8 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
   9 <HTML>
  10   <HEAD>
  11     <TITLE>
  12       <%= $title %>
  13     </TITLE>
  14     <META HTTP-Equiv="Cache-Control" Content="no-cache">
  15     <META HTTP-Equiv="Pragma" Content="no-cache">
  16     <META HTTP-Equiv="Expires" Content="0">
  17
  18     <%= include('menu.html', 'freeside_baseurl' => $fsurl ) %>
  19
  20     <SCRIPT TYPE="text/javascript">
  21       function clearhint_search_cust (what) {
  22         if ( what.value == '(cust #, name, company or phone)' )
  23           what.value = '';
  24       }
  25
  26       function clearhint_search_invoice (what) {
  27         if ( what.value == '(inv #)' )
  28           what.value = '';
  29       }
  30
  31       function clearhint_search_svc (what) {
  32         if ( what.value == '(user, user@domain or domain)' )
  33           what.value = '';
  34       }
  35
  36       function clearhint_search_ticket (what) {
  37         if ( what.value == '(ticket # or subject string)' )
  38           what.value = '';
  39       }
  40     </SCRIPT>
  41
  42     <%= $head %>
  43
  44   </HEAD>
  45   <BODY BACKGROUND="<%=$fsurl%>images/background-cheat.png" <%= $etc %> STYLE="margin-top:0; margin-bottom:0; margin-left:0; margin-right:0">
  46     <table width="100%" CELLPADDING=0 CELLSPACING=0 STYLE="padding-left:0; padding-right:4">
  47       <tr>
  48         <td rowspan=2 BGCOLOR="#ffffff"><IMG BORDER=0 ALT="freeside" SRC="<%=$fsurl%>images/small-logo.png"></td>
  49         <td align=left rowspan=2 BGCOLOR="#ffffff"> <!-- valign="top" -->
  50           <font size=6><%= $conf->config('company_name') || 'ExampleCo' %></font>
  51         </td>
  52         <td align=right valign=top BGCOLOR="#ffffff"><FONT SIZE="-1">Logged in as <b><%= getotaker %>&nbsp</b><br></FONT><FONT SIZE="-2"><a href="<%=$fsurl%>pref/XXXwritethis">Preferences</a>&nbsp;<BR></FONT>
  53         </td>
  54       </tr>
  55       <tr>
  56         <td align=right valign=bottom BGCOLOR="#ffffff">
  57
  58           <table>
  59             <tr>
  60               <td align=right BGCOLOR="#ffffff">
  61                 <FONT SIZE="-2">
  62                  <A HREF="http://www.sisd.com/freeside">Freeside</A>&nbsp;v<%= $FS::VERSION %><BR>
  63                  <A HREF="<%= $fsurl %>docs/">Documentation</A><BR>
  64                 </FONT>
  65               </td>
  66               <% if ( $conf->config('ticket_system') eq 'RT_Internal' ) { %>
  67               <% eval "use RT;"; %>
  68                 <td bgcolor=#000000></td>
  69                 <td align=left>
  70                   <FONT SIZE="-2">
  71                    <A HREF="http://www.bestpractical.com/rt">RT<A>&nbsp;v<%= $RT::VERSION %><BR>
  72                    <A HREF="http://wiki.bestpractical.com/">Documentation</A><BR>
  73                   </FONT>
  74                 </td>
  75               <% } %>
  76
  77             </tr>
  78           </table>
  79
  80         </td>
  81       </tr>
  82     </table>
  83
  84 <style type="text/css">
  85 input.fsblackbutton {
  86          background-color:#333333;
  87          color: #ffffff;
  88          border:1px solid;
  89          border-top-color:#cccccc;
  90          border-left-color:#cccccc;
  91          border-right-color:#aaaaaa;
  92          border-bottom-color:#aaaaaa;
  93          font-weight:bold;
  94          padding-left:12px;
  95          padding-right:12px;
  96          overflow:visible;
  97          filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff333333',EndColorStr='#ff666666')
  98 }
  99
 100 input.fsblackbuttonselected {
 101          background-color:#7e0079;
 102          color: #ffffff;
 103          border:1px solid;
 104          border-top-color:#cccccc;
 105          border-left-color:#cccccc;
 106          border-right-color:#aaaaaa;
 107          border-bottom-color:#aaaaaa;
 108          font-weight:bold;
 109          padding-left:12px;
 110          padding-right:12px;
 111          overflow:visible;
 112          filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff330033',EndColorStr='#ff7e0079')
 113 }
 114 </style>
 115
 116     <TABLE WIDTH="100%" CELLSPACING=0 CELLPADDING=0>
 117       <TR>
 118         <TD COLSPAN=5 WIDTH="100%" STYLE="padding:0"><IMG BORDER=0 ALT="" SRC="<%=$fsurl%>images/black-gradient.png" HEIGHT="13" WIDTH="100%"></TD>
 119       </TR>
 120
 121       <TR>
 122
 123         <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
 124           <FORM ACTION="<%=$fsurl%>edit/cust_main.cgi" METHOD="GET" STYLE="margin:0">
 125             <INPUT TYPE="submit" VALUE="New customer" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="vertical-align:bottom">
 126           </FORM>
 127         </TD>
 128
 129         <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
 130           <FORM ACTION="<%=$fsurl%>search/cust_main.cgi" METHOD="GET" STYLE="margin:0">
 131             <INPUT NAME="search_cust" TYPE="text" VALUE="(cust #, name, company or phone)" SIZE="28" onFocus="clearhint_search_cust(this);" onClick="clearhint_search_cust(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
 132             <A HREF="<%=$fsurl%>search/cust_main.html" STYLE="color: #000000; font-size: 70%">Advanced</A>
 133             <INPUT TYPE="submit" VALUE="Search customers" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
 134           </FORM>
 135         </TD>
 136
 137         <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
 138           <% if ( $FS::CurrentUser::CurrentUser->access_right('View invoices') ) { %>
 139             <FORM ACTION="<%=$fsurl%>search/cust_bill.html" METHOD="GET" STYLE="margin:0;display:inline">
 140               <INPUT NAME="invnum" TYPE="text" VALUE="(inv #)" SIZE="4" onFocus="clearhint_search_invoice(this);" onClick="clearhint_search_invoice(this);" STYLE="vertical-align:bottom;text-align:right;margin-bottom:1px">
 141               <% if ( $FS::CurrentUser::CurrentUser->access_right('List invoices') ) { %>
 142                 <A HREF="<%=$fsurl%>search/report_cust_bill.html" STYLE="color: #ffffff; font-size: 70%">Advanced</A>
 143               <% } %>
 144               <BR>
 145               <INPUT TYPE="submit" VALUE="Search invoices" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
 146             </FORM>
 147           <% } %>
 148         </TD>
 149
 150         <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
 151           <FORM ACTION="<%=$fsurl%>search/svc_Smart.html" METHOD="GET" STYLE="margin:0">
 152             <INPUT NAME="search_svc" TYPE="text" VALUE="(user, user@domain or domain)" SIZE="26" onFocus="clearhint_search_svc(this);" onClick="clearhint_search_svc(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
 153             <A HREF="<%=$fsurl%>search/svc_Smarter.html" STYLE="color: #000000; font-size: 70%">Advanced</A>
 154             <INPUT TYPE="submit" VALUE="Search services"CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
 155           </FORM>
 156         </TD>
 157
 158         <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right" STYLE="padding-right:4px">
 159           <FORM ACTION="<%=$fsurl%>rt/index.html" METHOD="GET" STYLE="margin:0">
 160             <INPUT NAME="q" TYPE="text" VALUE="(ticket # or subject string)" onFocus="clearhint_search_ticket(this);" onClick="clearhint_search_ticket(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
 161             <A HREF="<%=$fsurl%>rt/Search/Build.html" STYLE="color: #ffffff; font-size: 70%">Advanced</A>
 162             <INPUT TYPE="submit" VALUE="Search tickets" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%;padding-left:2px;padding-right:2px">
 163           </FORM>
 164         </TD>
 165
 166       </TR>
 167     </TABLE>
 168     <TABLE WIDTH="100%" HEIGHT="100%" CELLSPACING=0 CELLPADDING=4>
 169       <TR>
 170         <TD BGCOLOR="#000000" STYLE="padding:0" WIDTH="154"></TD>
 171         <TD STYLE="padding:0" WIDTH="13"><IMG BORDER=0 ALT="" SRC="<%=$fsurl%>images/black-gray-corner.png"></TD>
 172         <TD STYLE="padding:0"><IMG BORDER=0 ALT="" SRC="<%=$fsurl%>images/black-gray-top.png" HEIGHT="13" WIDTH="100%"></TD>
 173       </TR>
 174       <TR HEIGHT="100%">
 175         <TD BGCOLOR="#000000" ALIGN="left" HEIGHT="100%" WIDTH="154" VALIGN="top" ALIGN="right">
 176           <SCRIPT TYPE="text/javascript">
 177             document.write(myBar);
 178           </SCRIPT>
 179           <BR>
 180           <IMG SRC="<%=$fsurl%>images/32clear.gif" HEIGHT="1" WIDTH="154">
 181
 182         </TD>
 183         <TD STYLE="padding:0" HEIGHT="100%" WIDTH=13 VALIGN="top"><IMG WIDTH="13" HEIGHT="100%" BORDER=0 ALT="" SRC="<%=$fsurl%>images/black-gray-side.png"></TD>
 184         <TD BGCOLOR="#e8e8e8" HEIGHT="100%"> <!-- WIDTH="100%"> -->
 185
 186           <FONT SIZE=6>
 187             <%= $title %>
 188           </FONT>
 189
 190           <BR><BR>
 191           <%= $menubar !~ /^\s*$/ ? "$menubar<BR><BR>" : '' %>