[Bio] / FigWebServices / ss_export.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/ss_export.cgi

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

revision 1.6, Mon Jun 7 19:58:21 2004 UTC revision 1.7, Tue Jun 8 18:16:40 2004 UTC
# Line 99  Line 99 
99              {              {
100                  for my $peg (@$entry)                  for my $peg (@$entry)
101                  {                  {
102                        my $pegname = $peg;
103                        $pegname =~ s/^fig\|//;
104                        $pegname =~ s/\.peg\././;
105    
106                      my @location = $fig->feature_location($peg);                      my @location = $fig->feature_location($peg);
107                      if (@location > 0)                      if (@location > 0)
108                      {                      {
109                          my $seq = $fig->dna_seq($gname, @location);                          my $seq = $fig->dna_seq($gname, @location);
110                          if ($seq ne "")                          if ($seq ne "")
111                          {                          {
112                              &FIG::display_id_and_seq($peg, \$seq, $fh);                              &FIG::display_id_and_seq($pegname, \$seq, $fh);
113                          }                          }
114                      }                      }
115                      my $seq = $fig->get_translation($peg);                      my $seq = $fig->get_translation($peg);
116                      if ($seq ne "")                      if ($seq ne "")
117                      {                      {
118                          &FIG::display_id_and_seq($peg, \$seq, $protfh);                          &FIG::display_id_and_seq($pegname, \$seq, $protfh);
119                      }                      }
120                  }                  }
121              }              }
# Line 146  Line 150 
150              {              {
151                  for my $peg (@$entry)                  for my $peg (@$entry)
152                  {                  {
153                        my $pegname = $peg;
154                        $pegname =~ s/^fig\|//;
155                        $pegname =~ s/\.peg\././;
156                      my @location = $fig->feature_location($peg);                      my @location = $fig->feature_location($peg);
157                      if (@location > 0)                      if (@location > 0)
158                      {                      {
159                          my $seq = $fig->dna_seq($gname, @location);                          my $seq = $fig->dna_seq($gname, @location);
160                          if ($seq ne "")                          if ($seq ne "")
161                          {                          {
162                              &FIG::display_id_and_seq($peg, \$seq, $fh);                              &FIG::display_id_and_seq($pegname, \$seq, $fh);
163                              &FIG::display_id_and_seq($peg, \$seq, $all_fh);                              &FIG::display_id_and_seq($pegname, \$seq, $all_fh);
164                          }                          }
165                      }                      }
166                      my $seq = $fig->get_translation($peg);                      my $seq = $fig->get_translation($peg);
167                      if ($seq ne "")                      if ($seq ne "")
168                      {                      {
169                          &FIG::display_id_and_seq($peg, \$seq, $protfh);                          &FIG::display_id_and_seq($pegname, \$seq, $protfh);
170                          &FIG::display_id_and_seq($peg, \$seq, $allprot_fh);                          &FIG::display_id_and_seq($pegname, \$seq, $allprot_fh);
171                          &FIG::display_seq(\$seq, $catfh);                          &FIG::display_seq(\$seq, $catfh);
172                      }                      }
173                  }                  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3