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

Diff of /FigWebServices/subsys.cgi

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

revision 1.89, Sun Jul 10 02:01:44 2005 UTC revision 1.90, Thu Jul 14 07:06:30 2005 UTC
# Line 877  Line 877 
877      push(@$html,$cgi->checkbox(-name => 'show_coupled_fast', -value => 1, -checked => 0, -override => 1,-label => 'show coupled PEGs fast [depends on existing pins/clusters]'),$cgi->br);      push(@$html,$cgi->checkbox(-name => 'show_coupled_fast', -value => 1, -checked => 0, -override => 1,-label => 'show coupled PEGs fast [depends on existing pins/clusters]'),$cgi->br);
878      push(@$html,$cgi->checkbox(-name => 'show_coupled', -value => 1, -checked => 0, -override => 1,-label => 'show coupled PEGs[figure 2 minutes per PEG in spreadsheet]'),$cgi->br);      push(@$html,$cgi->checkbox(-name => 'show_coupled', -value => 1, -checked => 0, -override => 1,-label => 'show coupled PEGs[figure 2 minutes per PEG in spreadsheet]'),$cgi->br);
879      # RAE Hide -1 variants      # RAE Hide -1 variants
880      push(@$html,$cgi->checkbox(-name => 'hide_minus1', -value=> 1, -checked => 0, -label => 'hide -1 variants'),$cgi->br);      push(@$html,$cgi->checkbox(-name => 'show_minus1', -value=> 1, -checked => 0, -label => 'Show -1 variants'),$cgi->br);
881      push(@$html,$cgi->hr,      push(@$html,$cgi->hr,
882                  $cgi->br,"Column (specify the number of the column): ",                  $cgi->br,"Column (specify the number of the column): ",
883                  $cgi->textfield(-name => "col_to_align", -size => 7),                  $cgi->textfield(-name => "col_to_align", -size => 7),
# Line 1630  Line 1630 
1630    
1631          foreach $row (@$tab)          foreach $row (@$tab)
1632          {          {
1633              next if ($row->[2] == -1 && $cgi->param('hide_minus1')); # RAE don't show -1 variants if checked              next if ($row->[2] == -1 && !$cgi->param('show_minus1')); # RAE don't show -1 variants if checked
1634              my($genomeV,$vcodeV,$vcode_value);              my($genomeV,$vcodeV,$vcode_value);
1635              $genome = $row->[0];              $genome = $row->[0];
1636              $vcode_value = $row->[2];              $vcode_value = $row->[2];
# Line 1654  Line 1654 
1654    
1655          foreach $row (@$tab)          foreach $row (@$tab)
1656          {          {
1657              next if ($row->[2] == -1 && $cgi->param('hide_minus1')); # RAE don't show -1 variants if checked              next if ($row->[2] == -1 && !$cgi->param('show_minus1')); # RAE don't show -1 variants if checked
1658              if ((@$tab1 > 0) && ((@$tab1 % 10) == 0))              if ((@$tab1 > 0) && ((@$tab1 % 10) == 0))
1659              {              {
1660                  push(@$tab1,[map { "<b>$_</b>" } @$col_hdrs]) ;                  push(@$tab1,[map { "<b>$_</b>" } @$col_hdrs]) ;

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3