[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.5, Thu May 27 19:28:08 2004 UTC revision 1.6, Mon Jun 7 19:58:21 2004 UTC
# Line 103  Line 103 
103                      if (@location > 0)                      if (@location > 0)
104                      {                      {
105                          my $seq = $fig->dna_seq($gname, @location);                          my $seq = $fig->dna_seq($gname, @location);
106                            if ($seq ne "")
107                            {
108                          &FIG::display_id_and_seq($peg, \$seq, $fh);                          &FIG::display_id_and_seq($peg, \$seq, $fh);
109                      }                      }
110                        }
111                      my $seq = $fig->get_translation($peg);                      my $seq = $fig->get_translation($peg);
112                        if ($seq ne "")
113                        {
114                      &FIG::display_id_and_seq($peg, \$seq, $protfh);                      &FIG::display_id_and_seq($peg, \$seq, $protfh);
115                  }                  }
116              }              }
117          }          }
118            }
119          close($fh);          close($fh);
120          close($protfh);          close($protfh);
121      }      }
# Line 144  Line 150 
150                      if (@location > 0)                      if (@location > 0)
151                      {                      {
152                          my $seq = $fig->dna_seq($gname, @location);                          my $seq = $fig->dna_seq($gname, @location);
153                            if ($seq ne "")
154                            {
155                          &FIG::display_id_and_seq($peg, \$seq, $fh);                          &FIG::display_id_and_seq($peg, \$seq, $fh);
156                          &FIG::display_id_and_seq($peg, \$seq, $all_fh);                          &FIG::display_id_and_seq($peg, \$seq, $all_fh);
157                      }                      }
158                        }
159                      my $seq = $fig->get_translation($peg);                      my $seq = $fig->get_translation($peg);
160                        if ($seq ne "")
161                        {
162                      &FIG::display_id_and_seq($peg, \$seq, $protfh);                      &FIG::display_id_and_seq($peg, \$seq, $protfh);
163                      &FIG::display_id_and_seq($peg, \$seq, $allprot_fh);                      &FIG::display_id_and_seq($peg, \$seq, $allprot_fh);
164                      &FIG::display_seq(\$seq, $catfh);                      &FIG::display_seq(\$seq, $catfh);
165                  }                  }
166              }              }
167          }          }
168            }
169          close($fh);          close($fh);
170          close($protfh);          close($protfh);
171      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3