[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.62, Wed Apr 6 01:01:22 2005 UTC revision 1.63, Wed Apr 6 15:32:09 2005 UTC
# Line 803  Line 803 
803    
804      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);
805      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);
806        # RAE Hide -1 variants
807        push(@$html,$cgi->checkbox(-name => 'hide_minus1', -value=> 1, -checked => 0, -label => 'hide -1 variants'),$cgi->br);
808      push(@$html,$cgi->br,"Align column (specify the number of the column): ",      push(@$html,$cgi->br,"Align column (specify the number of the column): ",
809                  $cgi->textfield(-name => "col_to_align", -size => 7),                  $cgi->textfield(-name => "col_to_align", -size => 7),
810                  $cgi->checkbox(-name => "show_align_input",  -checked => 0,                  $cgi->checkbox(-name => "show_align_input",  -checked => 0,
# Line 1496  Line 1498 
1498    
1499          foreach $row (@$tab)          foreach $row (@$tab)
1500          {          {
1501                next if ($row->[2] == -1 && $cgi->param('hide_minus1')); # RAE don't show -1 variants if checked
1502              my($genomeV,$vcodeV,$vcode_value);              my($genomeV,$vcodeV,$vcode_value);
1503              $genome = $row->[0];              $genome = $row->[0];
1504              $vcode_value = $row->[2];              $vcode_value = $row->[2];
# Line 1518  Line 1521 
1521          my $tab1 = [];          my $tab1 = [];
1522          foreach $row (@$tab)          foreach $row (@$tab)
1523          {          {
1524                next if ($row->[2] == -1 && $cgi->param('hide_minus1')); # RAE don't show -1 variants if checked
1525              if ((@$tab1 > 0) && ((@$tab1 % 10) == 0))              if ((@$tab1 > 0) && ((@$tab1 % 10) == 0))
1526              {              {
1527                  push(@$tab1,[map { "<b>$_</b>" } @$col_hdrs]) ;                  push(@$tab1,[map { "<b>$_</b>" } @$col_hdrs]) ;

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3