[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32, Sat Feb 19 00:22:57 2005 UTC revision 1.33, Fri Feb 25 22:51:37 2005 UTC
# Line 21  Line 21 
21  sub compute_html_header  sub compute_html_header
22  {  {
23      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
24      my($additional_insert) = @_;      my($additional_insert,$user) = @_;
25      my $html_hdr_file = "./Html/html.hdr";      my $html_hdr_file = "./Html/html.hdr";
26      if (! -f $html_hdr_file)      if (! -f $html_hdr_file)
27      {      {
# Line 78  Line 78 
78          $html_tail_file = "$FIG_Config::fig/CGI/Html/html.tail";          $html_tail_file = "$FIG_Config::fig/CGI/Html/html.tail";
79      }      }
80    
     my @html_hdr = compute_html_header();  
   
81      my $user = $cgi->param('user') || "";      my $user = $cgi->param('user') || "";
82        my @html_hdr = compute_html_header(undef,$user);
83    
84    
85      print $cgi->header;      print $cgi->header;
86    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3