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

Diff of /FigWebServices/sgv.cgi

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

revision 1.8, Fri Feb 19 19:37:17 2010 UTC revision 1.9, Tue Feb 23 21:46:30 2010 UTC
# Line 26  Line 26 
26  use CGI;  use CGI;
27  my $cgi = new CGI;  my $cgi = new CGI;
28    
29    my $sv_url = "http://seed-viewer.theseed.org/";
30  $GenoGraphics::image_type = "png";  $GenoGraphics::image_type = "png";
31  $GenoGraphics::image_suffix = "png";  $GenoGraphics::image_suffix = "png";
32  $GenoGraphics::temp_url = "/FIG-Tmp";  $GenoGraphics::temp_url = "/FIG-Tmp";
33    eval {
34        require FIG_Config;
35        $GenoGraphics::temp_url = $FIG_Config::temp_url;
36        $sv_url = "$FIG_Config::cgi_url/seedviewer.cgi";
37    };
38    
39  #print STDERR "$_ = $ENV{$_}\n" for sort keys %ENV;  #print STDERR "$_ = $ENV{$_}\n" for sort keys %ENV;
40    
41  if (0)  if (0)
# Line 548  Line 555 
555    
556      if ($fid !~ /\.peg\./) { return "" }      if ($fid !~ /\.peg\./) { return "" }
557      my $dir = $cgi->param('dir');      my $dir = $cgi->param('dir');
558      return $cgi->url() . "?request=feature&fid=$fid&dir=$dir";      return "$sv_url?page=Annotation;feature=$fid";
559  }  }
560    
561  sub comp_reg_link {  sub comp_reg_link {

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3