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