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

Diff of /FigWebServices/feature.cgi

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

revision 1.3, Wed Oct 6 20:37:38 2004 UTC revision 1.5, Wed Oct 12 21:03:16 2005 UTC
# Line 134  Line 134 
134    
135      unshift @$html, "<TITLE>The SEED: Feature Page</TITLE>\n";      unshift @$html, "<TITLE>The SEED: Feature Page</TITLE>\n";
136      my $gs = $fig->org_of($feature);      my $gs = $fig->org_of($feature);
     if ($feature =~ /^fig\|\d+\.\d+\.peg/)  
     {  
137          if (! $fig->is_real_feature($feature))          if (! $fig->is_real_feature($feature))
138          {          {
139              push(@$html,"<h1>Sorry, $feature is an unknown identifier</h1>\n");              push(@$html,"<h1>Sorry, $feature is an unknown identifier</h1>\n");
# Line 143  Line 141 
141          else          else
142          {          {
143              push(@$html,"<h1>Feature $feature: $gs</h1>\n");              push(@$html,"<h1>Feature $feature: $gs</h1>\n");
144              my $msg;              my $url = $cgi->url(-relative => 1, -query => 1, -path_info => 1);
             my $url = $cgi->self_url();  
             if ($cgi->param('translate')) {  
                 $url =~ s/[;&]translate(=[^;&])?//i or $url =~ s/translate(=[^;&])?[;&]//i;  
                 $msg = "Turn Off Function Translation";  
             }  
             else  
             {  
                 $url .= ";translate=1";  
                 $msg = "Translate Function Assignments";  
             }  
             #push(@$html, "<a href=\"$url\">$msg</a><br>\n");  
   
145              &display_peg($fig,$cgi,$html,$feature);              &display_peg($fig,$cgi,$html,$feature);
146          }          }
147      }      }
     else  
     {  
         &display_external($fig,$cgi,$html,$feature);  
     }  
 }  
148    
149  #==============================================================================  #==============================================================================
150  #  display_peg  #  display_peg
# Line 201  Line 182 
182          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));
183      }      }
184      push(@$html,$cgi->hr);      push(@$html,$cgi->hr);
185      my $link1 = $cgi->self_url() . "&request=view_annotations";      my $link1 = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&request=view_annotations";
186      my $link2 = $cgi->self_url() . "&request=view_all_annotations";      my $link2 = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&request=view_all_annotations";
187      push(@$html,"<br><a href=$link1>To View Annotations</a>/<a href=$link2>To View All Related Annotations</a>\n");      push(@$html,"<br><a href=$link1>To View Annotations</a>/<a href=$link2>To View All Related Annotations</a>\n");
188    
189    
190      my $link = $cgi->self_url() . "&request=dna_sequence";      my $link = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&request=dna_sequence";
191      push(@$html,"<br><a href=$link>DNA Sequence</a>\n");      push(@$html,"<br><a href=$link>DNA Sequence</a>\n");
192    
193      $link = $cgi->url();      $link = $cgi->url(-relative => 1);
194      $link =~ s/protein.cgi/fid_checked.cgi/;      $link =~ s/protein.cgi/fid_checked.cgi/;
195      my $user = $cgi->param('user');      my $user = $cgi->param('user');
196      if (! $user)      if (! $user)
# Line 270  Line 251 
251          if ($fid1 =~ /peg\.(\d+)$/)          if ($fid1 =~ /peg\.(\d+)$/)
252          {          {
253              $n = $1;              $n = $1;
254              $link = $cgi->url() . "?feature=$fid1&user=$user";              $link = $cgi->url(-relative => 1) . "?feature=$fid1&user=$user";
255          }          }
256          elsif ($fid1 =~ /\.([a-z]+)\.\d+$/)          elsif ($fid1 =~ /\.([a-z]+)\.\d+$/)
257          {          {
# Line 334  Line 315 
315      if (@maps > 0)      if (@maps > 0)
316      {      {
317          $cgi->delete('request');          $cgi->delete('request');
318          my $url  = $cgi->self_url() . "&request=ec_to_maps&ec=$ec&org=$org";          my $url  = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&request=ec_to_maps&ec=$ec&org=$org";
319          my $link = "<a href=\"$url\">$ec</a>";          my $link = "<a href=\"$url\">$ec</a>";
320          return $link;          return $link;
321      }      }
# Line 365  Line 346 
346      my($cgi,$map) = @_;      my($cgi,$map) = @_;
347    
348      $cgi->delete('request');      $cgi->delete('request');
349      my $url  = $cgi->self_url() . "&request=link_to_map&map=$map";      my $url  = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&request=link_to_map&map=$map";
350      my $link = "<a href=\"$url\">$map</a>";      my $link = "<a href=\"$url\">$map</a>";
351      return $link;      return $link;
352  }  }
# Line 586  Line 567 
567    
568      my $prot = $cgi->param('prot');      my $prot = $cgi->param('prot');
569      $cgi->delete('prot');      $cgi->delete('prot');
570      my $url  = $cgi->self_url() . "&prot=$peg&compare_region=1";      my $url  = $cgi->url(-relative => 1, -query => 1, -path_info => 1) . "&prot=$peg&compare_region=1";
571      $cgi->delete('prot');      $cgi->delete('prot');
572      $cgi->param(-name => 'prot', -value => $prot);      $cgi->param(-name => 'prot', -value => $prot);
573    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3