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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.11, Tue Dec 23 22:29:51 2003 UTC revision 1.12, Tue Dec 23 22:38:31 2003 UTC
# Line 318  Line 318 
318  sub plug_url {  sub plug_url {
319      my($url) = @_;      my($url) = @_;
320    
321      my $name = defined($FIG_Config::hostname) ? $FIG_Config::hostname : `hostname`;      my $name = &get_local_hostname;
322      if ($name && ($url =~ /^http:\/\/[^\/]+(.*)/))      if ($name && ($url =~ /^http:\/\/[^\/]+(.*)/))
323      {      {
324          $url = "http://$name$1";          $url = "http://$name$1";

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3