[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.14, Sat Jun 26 14:27:01 2004 UTC revision 1.15, Mon Jun 28 19:15:30 2004 UTC
# Line 27  Line 27 
27          $html_tail_file = "$FIG_Config::fig/CGI/Html/html.tail";          $html_tail_file = "$FIG_Config::fig/CGI/Html/html.tail";
28      }      }
29    
30        my @html_hdr = &FIG::file_read($html_hdr_file);
31        if (@html_hdr)
32        {
33            my $insert_stuff;
34            my @ver = &FIG::file_head("$FIG_Config::fig_disk/CURRENT_RELEASE", 1);
35            my $ver = $ver[0];
36            chomp $ver;
37            if ($ver =~ /^cvs\.(\d+)$/)
38            {
39                my $d = asctime(localtime($1));
40                chomp($d);
41                $ver .=  " ($d)";
42            }
43            my $host = &FIG::get_local_hostname();
44            $insert_stuff = "SEED version <b>$ver</b> on $host";
45    
46            for $_ (@html_hdr)
47            {
48                s,(href|img\s+src)="/FIG/,\1="$FIG_Config::cgi_base,g;
49                if ($_ eq "<!-- HEADER_INSERT -->\n")
50                {
51                    $_ = $insert_stuff;
52                }
53            }
54        }
55    
56    
57      print $cgi->header;      print $cgi->header;
58    
# Line 156  Line 182 
182      #  Seed page header (if it exists) goes after <BODY>      #  Seed page header (if it exists) goes after <BODY>
183      #      #
184    
185      if ( -f $html_hdr_file )      if (@html_hdr)
186      {      {
187          splice( @$html, $body_line + 1, 0, `cat $html_hdr_file` );          splice( @$html, $body_line + 1, 0, @html_hdr );
188      }      }
189    
190      #      #
# Line 367  Line 393 
393          my $trans = $cgi->param('translate') ? "&translate=1" : "";          my $trans = $cgi->param('translate') ? "&translate=1" : "";
394          my $link = $cgi->url() . "?prot=$fid&user=$user$trans";          my $link = $cgi->url() . "?prot=$fid&user=$user$trans";
395          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
396            #
397            # Elimin the p2p part if we're in that subdir. Ugh.
398            #
399            $link =~ s,p2p/protein.cgi,protein.cgi,;
400    
401          if ($just_url)          if ($just_url)
402          {          {
403              return $link;              return $link;

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3