[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.43, Fri Sep 24 19:35:58 2004 UTC revision 1.44, Sun Oct 17 16:40:13 2004 UTC
# Line 1  Line 1 
1    
2    #### start ####
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;
5    
# Line 48  Line 50 
50      exit;      exit;
51  }  }
52    
53    
54  if ($prot !~ /^fig\|/)  if ($prot !~ /^fig\|/)
55  {  {
56      if ($_ = $fig->by_alias($prot))      my @poss = $fig->by_alias($prot);
57        if (@poss > 0)
58      {      {
59          $prot = $_;          $prot = $poss[0];
60      }      }
61      else      else
62      {      {
# Line 372  Line 376 
376      my $link = $cgi->self_url() . "&request=fusions";      my $link = $cgi->self_url() . "&request=fusions";
377      push(@$html,"<br><a href=$link>To Get Fusion Data</a>\n");      push(@$html,"<br><a href=$link>To Get Fusion Data</a>\n");
378    
379        my $link = &FIG::cgi_url . "/homologs_in_clusters.cgi?prot=$peg&user=$user\n";
380        push(@$html,"<br><a href=$link>To Find Homologs in Clusters</a>\n");
381    
382      my $has_translation = $fig->translatable($peg);      my $has_translation = $fig->translatable($peg);
383      if ((! $cgi->param('compare_region')) && $has_translation)      if ((! $cgi->param('compare_region')) && $has_translation)
384      {      {
# Line 383  Line 390 
390          &print_compared_regions($fig,$cgi,$html,$peg);          &print_compared_regions($fig,$cgi,$html,$peg);
391      }      }
392    
393    
394      my $sims = $cgi->param('sims');      my $sims = $cgi->param('sims');
395      if ((! $sims) && $has_translation)      if ((! $sims) && $has_translation)
396      {      {
# Line 994  Line 1002 
1002      my $user = $cgi->param('user');      my $user = $cgi->param('user');
1003      push(@$html,$cgi->start_form(-action => &FIG::cgi_url . "/chromosomal_clusters.cgi"),      push(@$html,$cgi->start_form(-action => &FIG::cgi_url . "/chromosomal_clusters.cgi"),
1004                  $cgi->hidden(-name => "prot", -value => $peg),                  $cgi->hidden(-name => "prot", -value => $peg),
1005                    $cgi->hidden(-name => "uni", -value => 1),
1006                  $cgi->hidden(-name => "user", -value => $user));                  $cgi->hidden(-name => "user", -value => $user));
1007    
1008      $why_related = "";      $why_related = "";
# Line 1117  Line 1126 
1126      my $user = $cgi->param('user');      my $user = $cgi->param('user');
1127      $user = defined($user) ? $user : "";      $user = defined($user) ? $user : "";
1128    
1129      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user";      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user&uni=1";
1130      my $cluster_link = "<a href=\"$cluster_url\">*</a>";      my $cluster_link = "<a href=\"$cluster_url\">*</a>";
1131      return $cluster_link;      return $cluster_link;
1132  }  }
# Line 1299  Line 1308 
1308                                                 ));                                                 ));
1309          push(@commentary_form,$cgi->hidden(-name => "request", -value => "show_commentary"));          push(@commentary_form,$cgi->hidden(-name => "request", -value => "show_commentary"));
1310          push(@commentary_form,$cgi->hidden(-name => "prot", -value => $peg));          push(@commentary_form,$cgi->hidden(-name => "prot", -value => $peg));
1311            push(@commentary_form,$cgi->hidden(-name => "uni", -value => 1));
1312          push(@commentary_form,$cgi->hidden(-name => "user", -value => $user));          push(@commentary_form,$cgi->hidden(-name => "user", -value => $user));
1313    
1314          my($gene,$n,%how_many,$val,@vals,$x);          my($gene,$n,%how_many,$val,@vals,$x);

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3