[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.103, Fri Sep 29 14:58:09 2006 UTC revision 1.104, Fri Sep 29 17:08:21 2006 UTC
# Line 828  Line 828 
828      my($cgi,$fid,$local,$just_url,$fullpath) = @_;      my($cgi,$fid,$local,$just_url,$fullpath) = @_;
829    
830      my $err=join(" ", $cgi,$fid,$local,$just_url,$fullpath);      my $err=join(" ", $cgi,$fid,$local,$just_url,$fullpath);
     print STDERR "Creating link : $err\n";  
831    
832      my($n);      my($n);
833    
834      my $top = top_link();      my $top = top_link();
835      if ($fullpath) {$top=$FIG_Config::cgi_url}      if ($fullpath) {$top=$FIG_Config::cgi_url}
836    
     print STDERR "Top is $top because full path is $fullpath\n";  
   
837      if ($fid =~ /^fig\|\d+\.\d+\.([a-z]+)\.(\d+)/)      if ($fid =~ /^fig\|\d+\.\d+\.([a-z]+)\.(\d+)/)
838      {      {
839          if ($local)          if ($local)

Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3