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

Diff of /FigWebServices/ssa2.cgi

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

revision 1.15, Tue Jun 8 20:25:51 2004 UTC revision 1.16, Tue Jun 8 21:34:11 2004 UTC
# Line 463  Line 463 
463    
464      if ($cgi->param('show_missing_including_matches'))      if ($cgi->param('show_missing_including_matches'))
465      {      {
466            #
467            # Need to end the form that was started above; hope that doesn't cause problems.
468            #
469            push(@$html, $cgi->end_form);
470    
471          &format_missing_including_matches($fig,$cgi,$html,$genomes,$roles,$rows,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);          &format_missing_including_matches($fig,$cgi,$html,$genomes,$roles,$rows,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);
472      }      }
473    
# Line 1521  Line 1526 
1526    
1527      push(@$html,$cgi->h1('To Check Missing Entries:'));      push(@$html,$cgi->h1('To Check Missing Entries:'));
1528    
1529        push(@$html, $cgi->start_form(-action=> "fid_checked.cgi"));
1530    
1531        my $can_alter = $cgi->param('can_alter');
1532        $user = $cgi->param('user');
1533        push(@$html,
1534             $cgi->hidden(-name => 'user', -value => $user, -override => 1),
1535             $cgi->hidden(-name => 'can_alter', -value => $can_alter, -override => 1));
1536    
1537      for ($i=0; ($i < @$rows); $i++)      for ($i=0; ($i < @$rows); $i++)
1538      {      {
1539          $org = $genomes->[$i];          $org = $genomes->[$i];
# Line 1532  Line 1545 
1545          {          {
1546              if ((! $rows->[$i]->[$j]) && $subsetC->{$j})              if ((! $rows->[$i]->[$j]) && $subsetC->{$j})
1547              {              {
                 $user = $cgi->param('user');  
1548                  $role = $roles->[$j];                  $role = $roles->[$j];
1549                  if ($role =~ /^(.*)\t(.*)$/)                  if ($role =~ /^(.*)\t(.*)$/)
1550                  {                  {
# Line 1545  Line 1557 
1557                  my $roleE = $cgi->escape($role);                  my $roleE = $cgi->escape($role);
1558    
1559                  #                  #
1560                  # All the way up here is code to retrieve the role name.                  # All the way up to here is code to retrieve the role name.
1561                  #                  #
1562    
1563                  #                  #
# Line 1562  Line 1574 
1574    
1575          if (@$missing > 0)          if (@$missing > 0)
1576          {          {
1577              my $colhdr = ["P-Sc", "PEG", "Len", "Current fn", "Matched peg", "Len", "Function"];              my $colhdr = ["Assign", "P-Sc", "PEG", "Len", "Current fn", "Matched peg", "Len", "Function"];
1578              my $tbl = [];              my $tbl = [];
1579    
1580              for my $hit (@$missing)              for my $hit (@$missing)
1581              {              {
1582                  my($psc, $my_peg, $my_len, $my_fn, $match_peg, $match_len, $match_fn) = @$hit;                  my($psc, $my_peg, $my_len, $my_fn, $match_peg, $match_len, $match_fn) = @$hit;
1583    
1584                  push(@$tbl, $hit);                  my $my_peg_link = &HTML::fid_link($cgi, $my_peg, 1);
1585                    my $match_peg_link = &HTML::fid_link($cgi, $match_peg, 0);
1586    
1587                    my $checkbox = $cgi->checkbox(-name => "checked",
1588                                                  -value => "to=$my_peg,from=$match_peg",
1589                                                  -label => "");
1590    
1591                    push(@$tbl, [$checkbox,
1592                                 $psc,
1593                                 $my_peg_link, $my_len, $my_fn,
1594                                 $match_peg_link, $match_len, $match_fn]);
1595              }              }
1596    
1597              push(@$html, &HTML::make_table($colhdr, $tbl, ""));              push(@$html, &HTML::make_table($colhdr, $tbl, ""));
# Line 1579  Line 1601 
1601              push(@$html, $cgi->p("No matches."));              push(@$html, $cgi->p("No matches."));
1602          }          }
1603    
   
1604      }      }
1605        push(@$html,
1606             $cgi->submit(-value => "Process assignments",
1607                                  -name => "batch_assign"),
1608             $cgi->end_form);
1609  }  }
1610    
1611  sub format_dups {  sub format_dups {

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3