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

Diff of /FigWebServices/figfam_proto.cgi

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

revision 1.5, Thu May 24 20:54:25 2007 UTC revision 1.6, Fri May 25 16:40:29 2007 UTC
# Line 32  Line 32 
32    
33  elsif ($cgi->param('domain_search') )  elsif ($cgi->param('domain_search') )
34  {  {
   #print STDERR "pressed\n";  
35    my $query_domain =$cgi->param('query_domain');    my $query_domain =$cgi->param('query_domain');
36    &not_in_family_search($cgi,$fig,$query_domain);    &not_in_family_search($cgi,$fig,$query_domain);
37  }  }
# Line 81  Line 80 
80      push @$html,      push @$html,
81      "<br>",      "<br>",
82      "<h3>Pegs with $query_domain Not in $figfam_id</h3>",      "<h3>Pegs with $query_domain Not in $figfam_id</h3>",
83      "<table border><tr><td>PEG</td><td>FUNCTION</td></tr>";      "<table border><tr><td>ORGANISM</td><td>PEG</td><td>SUBSYSTEM</td><td>FUNCTION</td></tr>";
84      my $count = scalar(@returns);      my $count = scalar(@returns);
85      #print STDERR "count:$count\n";      #print STDERR "count:$count\n";
86      foreach my $return (@returns){      foreach my $return (@returns){
87          my $peg = @$return[0];          my $peg = @$return[0];
         #print STDERR "peg:$peg\n";  
88          if(!$in_family{$peg}){          if(!$in_family{$peg}){
89              #print STDERR "peg:$peg\n";              my $peg_link = &HTML::fid_link($cgi,$peg);
90                my $genome_id;
91                if($peg =~/fig\|(\d+.\d).peg.\d+/){
92                    $genome_id = $1;
93                }
94    
95                my $organism = $fig->genus_species($genome_id);
96                my @subsystems = $fig->subsystems_for_peg($peg);
97                #my @ss_list = map {$_->[0]} @subsystems;
98                my @ss_list = map {"<a href='$FIG_Config::cgi_url/subsys.cgi?usr=&ssa_name="."$_->[0]"."&request=show_ssa&can_alter=&check=&sort=&show_clusters=&show_minus1="."'>$_->[0]</a>"} @subsystems;
99                my $ss_string = join(" ",@ss_list);
100              my $function = $fig->function_of($peg);              my $function = $fig->function_of($peg);
101              push @$html,"<tr><td>$peg</td><td>$function</td></tr>";              push @$html,"<tr><td>$organism</td><td>$peg_link</td><td>$ss_string</td><td>$function</td></tr>";
102          }          }
103      }      }
104    
# Line 163  Line 171 
171              foreach $key (keys(%peg_to_domain)){delete($peg_to_domain{$key})}              foreach $key (keys(%peg_to_domain)){delete($peg_to_domain{$key})}
172              foreach $key (keys(%domain)){delete($domain{$key})}              foreach $key (keys(%domain)){delete($domain{$key})}
173    
174              push @$html, "<table border>";              push @$html, "<p>","<table border>";
175              my @returns = $fig->get_attributes($set,$db);              my @returns = $fig->get_attributes($set,$db);
176              foreach my $return (@returns){              foreach my $return (@returns){
177                  my $peg = @$return[0];                  my $peg = @$return[0];
# Line 227  Line 235 
235                  my $prob = $prob{$dom};                  my $prob = $prob{$dom};
236                  my $single_family = "multiple";                  my $single_family = "multiple";
237                  if($single{$dom}){$single_family = $single{$dom};}                  if($single{$dom}){$single_family = $single{$dom};}
238                  my $link;                  my $link,$link_text;
239                  if($db eq "CDD"){$link ="http://0-www.ncbi.nlm.nih.gov.library.vu.edu.au:80/Structure/cdd/cddsrv.cgi?uid=";}                  if($db eq "CDD"){$link ="http://0-www.ncbi.nlm.nih.gov.library.vu.edu.au:80/Structure/cdd/cddsrv.cgi?uid=";$link_text="CDD::$dom";}
240                  elsif($db eq "PIR"){$link = "http://pir.georgetown.edu/cgi-bin/ipcSF?id=PIRSF";}                  elsif($db eq "PIR"){$link = "http://pir.georgetown.edu/cgi-bin/ipcSF?id=PIRSF";$link_text="PIR::PIRSF$dom";}
241                  elsif($db eq "PRODOM"){$link = "http://prodom.prabi.fr/prodom/current/cgi-bin/request.pl?question=DBEN&query=PD";}                  elsif($db eq "PRODOM"){$link = "http://prodom.prabi.fr/prodom/current/cgi-bin/request.pl?question=DBEN&query=PD";$link_text="PRODOM::PD$dom";}
242                  else{$link ="http://expasy.org/prosite/PS";}                  else{$link ="http://expasy.org/prosite/PS";$link_text ="PROSITE::PS$dom";}
243                  my $tag = "<a href='$link$dom'>$dom</a>";                  my $tag = "<a href='$link$dom'>$link_text</a>";
244                  push @$html,"<tr><td>$tag</td><td>$instances</td><td>$length</td><td>$begin</td><td>$end</td><td>$prob</td><td>$single_family</td></tr>";                  push @$html,"<tr><td>$tag</td><td>$instances</td><td>$length</td><td>$begin</td><td>$end</td><td>$prob</td><td>$single_family</td></tr>";
245              }              }
246              push @$html,"</table>";              push @$html,"</table>";
247                push @html,"</p>";
248          }          }
249    
250    
251          push @$html,          push @$html,
252            "<h3>Search for Pegs with Domain Not in Family</h3>",
253          $cgi->start_multipart_form(),          $cgi->start_multipart_form(),
254          "<br><table border><tr><td>Search Pegs with Domain Not in Family</td><td>",          "<br><table border><tr><td>Enter Domain using format of Database::ID </td><td>",
255          $cgi->textarea(-name=>"query_domain", -rows=>1, -columns=>15),          $cgi->textarea(-name=>"query_domain", -rows=>1, -columns=>15),
256          "</td><td>",          "</td><td>",
257          $cgi->submit(-name=>'domain_search', -value=>'Not In Family'),          $cgi->submit(-name=>'domain_search', -value=>'Not In Family'),

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3