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

Diff of /FigWebServices/close_genome_discrepancies.cgi

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

revision 1.7, Thu Jun 29 22:43:41 2006 UTC revision 1.8, Thu Sep 21 19:03:21 2006 UTC
# Line 37  Line 37 
37      $cgi->p("Please enter your username", $cgi->textfield(-name=>"user", -size=>20)),      $cgi->p("Please enter your username", $cgi->textfield(-name=>"user", -size=>20)),
38      $cgi->p("Please choose more than one genome from the menu, and a list of all discrepant pegs will be generated for you."),      $cgi->p("Please choose more than one genome from the menu, and a list of all discrepant pegs will be generated for you."),
39      $raelib->scrolling_org_list($cgi, 1),      $raelib->scrolling_org_list($cgi, 1),
40      $cgi->p("Maximum pegs per page", $cgi->textfield(-name=>"max", -value=>10, -size=>5)),      $cgi->p("Maximum pegs per page", $cgi->textfield(-name=>"max", -value=>50, -size=>5)),
41      $cgi->p,      $cgi->p,
42      $cgi->submit, $cgi->reset,      $cgi->submit, $cgi->reset,
43      $cgi->end_form);      $cgi->end_form);
# Line 149  Line 149 
149      if ($user)      if ($user)
150      {      {
151          push(@$html,$cgi->start_form(-method => 'post',          push(@$html,$cgi->start_form(-method => 'post',
152                      -target => "$$",                      -target => "annotation_window",
153                      -action => &FIG::cgi_url . "/fid_checked.cgi"),                      -action => &FIG::cgi_url . "/fid_checked.cgi"),
154                  $cgi->hidden(-name => 'new_framework'),                  $cgi->hidden(-name => 'new_framework'),
155                  $cgi->hidden(-name => 'user', -value => $user),                  $cgi->hidden(-name => 'user', -value => $user),
# Line 220  Line 220 
220    
221      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }
222    
223      my @codes = grep { $_->[1] =~ /^evidence_code/i } $fig->get_attributes($peg);      my %codes = map {$_->[2] =~ s/\;.*//; $_->[2]=>1} grep { $_->[1] =~ /^evidence_code/i } $fig->get_attributes($peg);
224      return (@codes > 0) ? map { $_->[2] } @codes : ();      return keys %codes;
225  }  }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3