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

Diff of /FigWebServices/index.cgi

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

revision 1.51, Thu Nov 4 16:13:35 2004 UTC revision 1.52, Thu Nov 4 18:27:29 2004 UTC
# Line 85  Line 85 
85  {  {
86      my $genome = $cgi->param('genome');      my $genome = $cgi->param('genome');
87      my (@pegs,$peg);      my (@pegs,$peg);
88    
89        my @poss = $fig->by_alias($subsearch);
90        if (@poss > 0)    { $subsearch = $poss[0] }
91    
92      if ($subsearch =~ /(fig\|\d+\.\d+\.peg\.\d+)/)      if ($subsearch =~ /(fig\|\d+\.\d+\.peg\.\d+)/)
93      {      {
94  #       handle searching for homologs that occur in subsystems  #       handle searching for homologs that occur in subsystems
# Line 120  Line 124 
124          }          }
125          else          else
126          {          {
127              my $col_hdrs = ["PEG","Genome","Subsystem"];              my($uni,$uni_func);
128              my $tab = [ map { $pair = $_;              my $col_hdrs = ["PEG","Genome","Function","UniProt","UniProt Function","Subsystem"];
129                my $tab = [ map { $pair = $_; $uni = $fig->to_alias($pair->[0],"uni");
130                                  ($uni,$uni_func) = $uni ? (&HTML::uni_link($cgi,$uni),scalar $fig->function_of($uni)) : ("","");
131                                [&HTML::fid_link($cgi,$pair->[0]),                                [&HTML::fid_link($cgi,$pair->[0]),
132                                 $fig->org_of($pair->[0]),                                 $fig->org_of($pair->[0]),
133                                   scalar $fig->function_of($pair->[0]),
134                                   $uni,$uni_func,
135                                 &HTML::sub_link($cgi,$pair->[1])] } @pairs];                                 &HTML::sub_link($cgi,$pair->[1])] } @pairs];
136              print &HTML::make_table($col_hdrs,$tab,"PEGs that Occur in Subsystems");              print &HTML::make_table($col_hdrs,$tab,"PEGs that Occur in Subsystems");
137          }          }
# Line 521  Line 529 
529                  "Enter user: ",                  "Enter user: ",
530                  $cgi->textfield(-name => "user", -size => 20), $cgi->br,                  $cgi->textfield(-name => "user", -size => 20), $cgi->br,
531                  $cgi->br,"Genome: ",$cgi->textfield(-name => "genome", -size => 15),$cgi->br,                  $cgi->br,"Genome: ",$cgi->textfield(-name => "genome", -size => 15),$cgi->br,
532                    "Search: ",$cgi->textfield(-name => "subsearch", -size => 100),$cgi->br,
533                  $cgi->submit('Find PEGs'),": ",                  $cgi->submit('Find PEGs'),": ",
                 $cgi->textfield(-name => "subsearch", -size => 100),  
534                  $cgi->end_form                  $cgi->end_form
535           );           );
536  }  }

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3