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

Diff of /FigWebServices/align_DNA.cgi

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

revision 1.2, Sun Oct 2 23:15:37 2005 UTC revision 1.3, Mon Oct 3 13:13:08 2005 UTC
# Line 80  Line 80 
80      }      }
81    
82      my $trans;      my $trans;
83      if ((length($coding) > 2) && $cgi->param('Show With Coding'))      if ((length($coding) > 2) && $cgi->param('Show With Translation'))
84      {      {
85          $trans = $fig->get_translation($peg);          $trans = $fig->get_translation($peg);
86      }      }
# Line 106  Line 106 
106      push(@$html,$cgi->start_form(-action => "align_DNA.cgi",      push(@$html,$cgi->start_form(-action => "align_DNA.cgi",
107                                   -method => 'post'),                                   -method => 'post'),
108                  $cgi->hidden(-name => 'peg', -value => [@pegs], -override => 1),                  $cgi->hidden(-name => 'peg', -value => [@pegs], -override => 1),
109                  $cgi->param('Show With Coding') ? $cgi->submit('Show Without Coding')                  $cgi->param('Show With Translation') ? $cgi->submit('Show Without Translation')
110                                                  : $cgi->submit('Show With Coding'),                                                  : $cgi->submit('Show With Translation'),
111                  $cgi->br,$cgi->br,$cgi->br,                  $cgi->br,$cgi->br,$cgi->br,
112                  " "," ","Size upstream: ",                  " "," ","Size upstream: ",
113                  $cgi->textfield(-name => 'upstream', -size => 4, -value => $upstream),                  $cgi->textfield(-name => 'upstream', -size => 4, -value => $upstream),
# Line 169  Line 169 
169    
170          my $position = ($strand eq "+") ? $beg+$offset-$upstream_left : $beg+$upstream_left-$offset;          my $position = ($strand eq "+") ? $beg+$offset-$upstream_left : $beg+$upstream_left-$offset;
171          push(@$html,"<tr><td>$peg/$position</td>\n");          push(@$html,"<tr><td>$peg/$position</td>\n");
172          if ($cgi->param('Show With Coding'))          if ($cgi->param('Show With Translation'))
173          {          {
174              @coding = ("<tr><td>coding</td>");              @coding = ("<tr><td>coding</td>");
175          }          }
# Line 192  Line 192 
192                  {                  {
193                      $upstream_left--;                      $upstream_left--;
194                      $data->[3] = $upstream_left;                      $data->[3] = $upstream_left;
195                      if ($cgi->param('Show With Coding'))                      if ($cgi->param('Show With Translation'))
196                      {                      {
197                          push(@coding,"<td> </td>\n");                          push(@coding,"<td> </td>\n");
198                      }                      }
199                  }                  }
200                  else                  else
201                  {                  {
202                      if ($cgi->param('Show With Coding'))                      if ($cgi->param('Show With Translation'))
203                      {                      {
204                          my($p);                          my($p);
205                          if (($offset % 3) == 0)                          if (($offset % 3) == 0)
# Line 219  Line 219 
219              push(@$html,"<td bgcolor=$color>$c</td>\n");              push(@$html,"<td bgcolor=$color>$c</td>\n");
220          }          }
221          push(@$html,"</tr>\n");          push(@$html,"</tr>\n");
222          if ($cgi->param('Show With Coding'))          if ($cgi->param('Show With Translation'))
223          {          {
224              push(@coding,"</tr>\n");              push(@coding,"</tr>\n");
225              push(@$html,@coding);              push(@$html,@coding);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3