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

Diff of /FigWebServices/protein.cgi

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

revision 1.101, Sun Mar 20 22:26:16 2005 UTC revision 1.102, Mon Mar 21 21:39:32 2005 UTC
# Line 1050  Line 1050 
1050    
1051          my $col_hdrs;          my $col_hdrs;
1052          my $color_help = "(<A href=\"Html/similarity_region_colors.html\" target=\"SEED_or_SPROUT_help\">colors explained</A>)";          my $color_help = "(<A href=\"Html/similarity_region_colors.html\" target=\"SEED_or_SPROUT_help\">colors explained</A>)";
1053          my $func_clr_help = "(<A href=\"Html/function_colors.html\" target=\"SEED_or_SPROUT_help\">colors explained</A>)";          my $func_clr_help = "(<A href=\"Html/function_colors.html\" target=\"SEED_or_SPROUT_help\">function colors explained</A>)";
1054    
1055          if ($user && $cgi->param('translate')) {          if ($user && $cgi->param('translate')) {
1056              push( @$html, " ASSIGN to/Translate from/SELECT current PEG", $cgi->br,              push( @$html, " ASSIGN to/Translate from/SELECT current PEG", $cgi->br,
# Line 1410  Line 1410 
1410    
1411      #  Sanity checks on fixed vocabulary parameter values:      #  Sanity checks on fixed vocabulary parameter values:
1412    
1413      $select    = 'all'  unless $select    eq 'fig' || $select    eq 'fig_pref';      my %select_opts    = map { ( $_, 1 ) } qw( all  fig  figx  fig_pref  figx_pref );
1414      $sort_by   = 'bits' unless $sort_by   eq 'id'  || $sort_by   eq 'id2' || $sort_by   eq 'bpp'  || $sort_by   eq 'bpp2';      my %sort_opts      = map { ( $_, 1 ) } qw( bits  id  id2  bpp  bpp2 );
1415      $sim_meas  = 'id'   unless $sim_meas  eq 'bpp';      my %sim_meas_opts  = map { ( $_, 1 ) } qw( id  bpp );
1416      $chk_which = 'none' unless $chk_which eq 'all' || $chk_which eq 'rep';      my %chk_which_opts = map { ( $_, 1 ) } qw( none  all  rep );
1417    
1418        $select    = 'all'  unless $select_opts{ $select };
1419        $sort_by   = 'bits' unless $sort_opts{ $sort_by };
1420        $sim_meas  = 'id'   unless $sim_meas_opts{ $sim_meas };
1421        $chk_which = 'none' unless $chk_which_opts{ $chk_which };
1422    
1423      #  We have processed all options.  Use them to build forms.      #  We have processed all options.  Use them to build forms.
1424    
# Line 1421  Line 1426 
1426    
1427      my $chk_select_all  = select_if( $select eq 'all' );      my $chk_select_all  = select_if( $select eq 'all' );
1428      my $chk_select_figp = select_if( $select eq 'fig_pref' );      my $chk_select_figp = select_if( $select eq 'fig_pref' );
1429        my $chk_select_figxp = select_if( $select eq 'figx_pref' );
1430      my $chk_select_fig  = select_if( $select eq 'fig' );      my $chk_select_fig  = select_if( $select eq 'fig' );
1431        my $chk_select_figx  = select_if( $select eq 'figx' );
1432      my $chk_show_env    = chked_if( $show_env );      my $chk_show_env    = chked_if( $show_env );
1433      my $chk_hide_alias  = chked_if( $hide_alias );      my $chk_hide_alias  = chked_if( $hide_alias );
1434      my $chk_group_by_genome = chked_if( $group_by_genome );      my $chk_group_by_genome = chked_if( $group_by_genome );
# Line 1453  Line 1460 
1460      Max E-val:<input type=text name=maxP size=8 value=$maxP> &nbsp;&nbsp;      Max E-val:<input type=text name=maxP size=8 value=$maxP> &nbsp;&nbsp;
1461      <select name=select>      <select name=select>
1462          <option value=all      $chk_select_all>Show all databases</option>          <option value=all      $chk_select_all>Show all databases</option>
1463          <option value=fig_pref $chk_select_figp>FIG IDs preferred</option>          <option value=fig_pref  $chk_select_figp>Prefer FIG IDs (to max exp)</option>
1464          <option value=fig      $chk_select_fig>Just FIG IDs</option>          <option value=figx_pref $chk_select_figxp>Prefer FIG IDs (all)</option>
1465            <option value=fig       $chk_select_fig>Just FIG IDs (to max exp)</option>
1466            <option value=figx      $chk_select_figx>Just FIG IDs (all)</option>
1467      </select> &nbsp;&nbsp;      </select> &nbsp;&nbsp;
1468      Show Env. samples:<input type=checkbox name=show_env value=1 $chk_show_env> &nbsp;&nbsp;      Show Env. samples:<input type=checkbox name=show_env value=1 $chk_show_env> &nbsp;&nbsp;
1469      Hide aliases:<input type=checkbox name=hide_alias value=1 $chk_hide_alias><br />      Hide aliases:<input type=checkbox name=hide_alias value=1 $chk_hide_alias><br />
# Line 1525  Line 1534 
1534      Max E-val:<input type=text name=maxP size=8 value=$maxP> &nbsp;&nbsp;      Max E-val:<input type=text name=maxP size=8 value=$maxP> &nbsp;&nbsp;
1535      <select name=select>      <select name=select>
1536          <option value=all      $chk_select_all>Show all databases</option>          <option value=all      $chk_select_all>Show all databases</option>
1537          <option value=fig_pref $chk_select_figp>FIG IDs preferred</option>          <option value=fig_pref  $chk_select_figp>Prefer FIG IDs (to max exp)</option>
1538          <option value=fig      $chk_select_fig>Just FIG IDs</option>          <option value=figx_pref $chk_select_figxp>Prefer FIG IDs (all)</option>
1539            <option value=fig       $chk_select_fig>Just FIG IDs (to max exp)</option>
1540            <option value=figx      $chk_select_figx>Just FIG IDs (all)</option>
1541      </select> &nbsp;&nbsp;      </select> &nbsp;&nbsp;
1542      Show Env. samples:<input type=checkbox name=show_env value=1 $chk_show_env> &nbsp;&nbsp;      Show Env. samples:<input type=checkbox name=show_env value=1 $chk_show_env> &nbsp;&nbsp;
1543      Hide aliases:<input type=checkbox name=hide_alias value=1 $chk_hide_alias><br />      Hide aliases:<input type=checkbox name=hide_alias value=1 $chk_hide_alias><br />

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3