[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.6, Sun Mar 21 02:20:55 2004 UTC revision 1.7, Fri Mar 26 21:39:08 2004 UTC
# Line 183  Line 183 
183          #  only, or every update?), I provide an alternative derivation          #  only, or every update?), I provide an alternative derivation
184          #  from $cgi_url. -- GJO          #  from $cgi_url. -- GJO
185          #          #
186            # BASE href needs to be absolute. RDO.
187          my $base_url = $FIG_Config::cgi_base;          #
188          if ( ! $base_url )                      # if cgi_base was not defined          #
189          {          $base_url = &FIG::cgi_url;
190              $base_url = $FIG_Config::cgi_url;   # get the full cgi url  #       my $base_url = $FIG_Config::cgi_base;
191              $base_url =~ s~^http://[^/]*~~;     # remove protocol and host  #       if ( ! $base_url )                      # if cgi_base was not defined
192              $base_url =~ m~/$~ || $base_url =~ s~$~/~; # check trailing slash  #       {
193          }  #           $base_url = $FIG_Config::cgi_url;   # get the full cgi url
194    #           $base_url =~ s~^http://[^/]*~~;     # remove protocol and host
195    #           $base_url =~ m~/$~ || $base_url =~ s~$~/~; # check trailing slash
196    #       }
197    
198          $base_line = $head_end_line;          $base_line = $head_end_line;
199          splice( @$html, $base_line, 0, "<BASE href=\"$base_url\">\n" );          splice( @$html, $base_line, 0, "<BASE href=\"$base_url\">\n" );

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3