[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.100, Sun Sep 24 15:22:58 2006 UTC revision 1.101, Mon Sep 25 19:34:14 2006 UTC
# Line 182  Line 182 
182      # Find the HTML header      # Find the HTML header
183      #      #
184    
185      ### TRS ### "tail_name" has no value here.      my $tail_name = $options->{tail_name} ? $options->{tail_name} : "html.tail";
186      my $html_tail_file = ""; # "./Html/$tail_name";      my $html_tail_file = "./Html/$tail_name";
187  #    if (! -f $html_tail_file)      if (! -f $html_tail_file)
188  #    {      {
189  #        $html_tail_file = "$FIG_Config::fig/CGI/Html/$tail_name";          $html_tail_file = "$FIG_Config::fig/CGI/Html/$tail_name";
190  #    }      }
191    
192      my $user = $cgi->param('user') || "";      my $user = $cgi->param('user') || "";
193      my @html_hdr;      my @html_hdr;
# Line 984  Line 984 
984      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}      for ($j=$i-1; ($j > 0) && ($out->[$j] !~ /FIG search/); $j--) {}
985      if ($j > 0)      if ($j > 0)
986      {      {
987           ### TRS ###          #
988  #        my @tmp = `cat $html_tail_file`;          # Hm. We would have tried using the options here:
989  #        my $n = @tmp;          # my $tail_name = $options{tail_name} ? $options{tail_name} : "html.tail";
990  #        splice(@$out,$j-$n,$n+1);          # but they're not passed in. So use the default html.tail.
991            #
992            my $html_tail_file = "./Html/html.tail";
993            my @tmp = `cat $html_tail_file`;
994            my $n = @tmp;
995            splice(@$out,$j-$n,$n+1);
996      }      }
997  }  }
998    
# Line 1397  Line 1402 
1402      {      {
1403          return "<a href='http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/searchgenes.pl?field=symbol&anchor=equals&match=$1&symbol_search=Search&number=50&format=html&sortby=symbol' target=_blank>$hgnc</a>";          return "<a href='http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/searchgenes.pl?field=symbol&anchor=equals&match=$1&symbol_search=Search&number=50&format=html&sortby=symbol' target=_blank>$hgnc</a>";
1404      }      }
1405      ### TRS ###: was $mim, changed to $hgnc  
1406      return $hgnc;      return $hgnc;
1407  }  }
1408    
# Line 1678  Line 1683 
1683    
1684   my @files=("SEED.rss");   my @files=("SEED.rss");
1685   if ($args->{"type"}) {   if ($args->{"type"}) {
     ### TRS ### "$type" had no value here, so guessed what it should be.  
1686      my $type = $args->{type};      my $type = $args->{type};
1687      push @files, "SEED.$type.rss"      push @files, "SEED.$type.rss"
1688  }  }

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3