[Bio] / FigKernelScripts / sphinx_index_genome.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/sphinx_index_genome.pl

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

revision 1.2, Mon Jun 7 18:30:01 2010 UTC revision 1.3, Mon Jun 7 18:35:58 2010 UTC
# Line 25  Line 25 
25          my($fid, $loc, $aliases, $type, $b, $e, $func, $who) = @$feature;          my($fid, $loc, $aliases, $type, $b, $e, $func, $who) = @$feature;
26    
27          my @ss = $fig->peg_to_subsystems($fid, 1, 1);          my @ss = $fig->peg_to_subsystems($fid, 1, 1);
28          @ss = map { encode_utf8($_) } @ss;          @ss = map { defined($_) ? encode_utf8($_) : () } @ss;
29          my $ss = join("\n", map { s/_/ /g; $_ } @ss);          my $ss = join("\n", map { s/_/ /g; $_ } @ss);
30    
31          $func = encode_utf8($func);          $func = defined($func) ? encode_utf8($func) : "";
32          $func =~ s/&/&/g;          $func =~ s/&/&/g;
33          $func =~ s/</&lt;/g;          $func =~ s/</&lt;/g;
34          $func =~ s/>/&gt;/g;          $func =~ s/>/&gt;/g;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3