[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.3, Mon Jun 7 18:35:58 2010 UTC revision 1.4, Mon Jun 7 18:47:41 2010 UTC
# Line 20  Line 20 
20  {  {
21      print STDERR "$genome\n";      print STDERR "$genome\n";
22      my $gs = $fig->genus_species($genome);      my $gs = $fig->genus_species($genome);
23        $gs =~ s/&/&/g;
24        $gs =~ s/</&lt;/g;
25        $gs =~ s/>/&gt;/g;
26      for my $feature (@{$fig->all_features_detailed_fast($genome)})      for my $feature (@{$fig->all_features_detailed_fast($genome)})
27      {      {
28          my($fid, $loc, $aliases, $type, $b, $e, $func, $who) = @$feature;          my($fid, $loc, $aliases, $type, $b, $e, $func, $who) = @$feature;
# Line 27  Line 30 
30          my @ss = $fig->peg_to_subsystems($fid, 1, 1);          my @ss = $fig->peg_to_subsystems($fid, 1, 1);
31          @ss = map { defined($_) ? encode_utf8($_) : () } @ss;          @ss = map { defined($_) ? encode_utf8($_) : () } @ss;
32          my $ss = join("\n", map { s/_/ /g; $_ } @ss);          my $ss = join("\n", map { s/_/ /g; $_ } @ss);
33            $ss =~ s/&/&amp;/g;
34            $ss =~ s/</&lt;/g;
35            $ss =~ s/>/&gt;/g;
36    
37          $func = defined($func) ? encode_utf8($func) : "";          $func = defined($func) ? encode_utf8($func) : "";
38          $func =~ s/&/&amp;/g;          $func =~ s/&/&amp;/g;
# Line 35  Line 41 
41          $aliases =~ s/&/&amp;/g;          $aliases =~ s/&/&amp;/g;
42          $aliases =~ s/</&lt;/g;          $aliases =~ s/</&lt;/g;
43          $aliases =~ s/>/&gt;/g;          $aliases =~ s/>/&gt;/g;
         $genome =~ s/&/&amp;/g;  
         $genome =~ s/</&lt;/g;  
         $genome =~ s/>/&gt;/g;  
44          $aliases =~ s/,/ /g;          $aliases =~ s/,/ /g;
45          if ($fid =~ /^fig\|(\d+)\.(\d+)\.([^.]+)\.(\d+)$/)          if ($fid =~ /^fig\|(\d+)\.(\d+)\.([^.]+)\.(\d+)$/)
46          {          {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3