[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.1, Mon Dec 1 16:54:26 2003 UTC revision 1.2, Tue Dec 23 16:35:17 2003 UTC
# Line 11  Line 11 
11      my($cgi,$html,$no_home) = @_;      my($cgi,$html,$no_home) = @_;
12      my $i;      my $i;
13    
14        #
15        # Find the HTML header
16        #
17    
18        my $html_hdr_file = "./Html/html.hdr";
19        if (! -f $html_hdr_file)
20        {
21            $html_hdr_file = "$FIG_Config::fig/CGI/Html/html.hdr";
22        }
23    
24        my $html_tail_file = "./Html/html.tail";
25        if (! -f $html_tail_file)
26        {
27            $html_tail_file = "$FIG_Config::fig/CGI/Html/html.tail";
28        }
29    
30    
31      print $cgi->header;      print $cgi->header;
32      print "<base href=\"" . &FIG::cgi_url . "/\">\n";      print "<base href=\"" . &FIG::cgi_url . "/\">\n";
33      for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<body\>/i); $i++) {}      for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<body\>/i); $i++) {}
34      if ($i < @$html)      if ($i < @$html)
35      {      {
36          splice(@$html,$i+1,0,`cat ./Html/html.hdr`);          splice(@$html,$i+1,0,`cat $html_hdr_file`);
37      }      }
38      else      else
39      {      {
40          for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<html\>/i); $i++) {}          for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<html\>/i); $i++) {}
41          if ($i < @$html)          if ($i < @$html)
42          {          {
43              splice(@$html,$i+1,0,`cat ./Html/html.hdr`);              splice(@$html,$i+1,0,`cat $html_hdr_file`);
44          }          }
45          else          else
46          {          {
47              splice(@$html,0,0,`cat ./Html/html.hdr`);              splice(@$html,0,0,`cat $html_hdr_file`);
48          }          }
49      }      }
50    
51      @tail = `cat ./Html/html.tail`;      @tail = `cat $html_tail_file`;
52      if (! $no_home)      if (! $no_home)
53      {      {
54          my $user = $cgi->param('user');          my $user = $cgi->param('user');
# Line 250  Line 267 
267      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}
268      if ($j > 0)      if ($j > 0)
269      {      {
270          my @tmp = `cat ./Html/html.tail`;          my @tmp = `cat $html_tail_file`;
271          my $n = @tmp;          my $n = @tmp;
272          splice(@$out,$j-$n,$n+1);          splice(@$out,$j-$n,$n+1);
273      }      }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3