[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.4, Fri Oct 8 19:20:38 2004 UTC revision 1.5, Wed Oct 12 21:03:16 2005 UTC
# Line 141  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 $url = $cgi->self_url();              my $url = $cgi->url(-relative => 1, -query => 1, -path_info => 1);
145              &display_peg($fig,$cgi,$html,$feature);              &display_peg($fig,$cgi,$html,$feature);
146          }          }
147  }  }
# Line 182  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 251  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 315  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 346  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 567  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.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3