[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.7, Wed Feb 17 19:34:44 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";
31    $GenoGraphics::image_suffix = "png";
32    $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;
40    
41  if (0)  if (0)
42  {  {
43      my $VAR1;      my $VAR1;
# Line 55  Line 67 
67      exit;      exit;
68  }  }
69    
70    
71  my $html = [];  my $html = [];
72  unshift @$html, "<TITLE>Simple Genome Viewer</TITLE>\n";  unshift @$html, "<TITLE>Simple Genome Viewer</TITLE>\n";
73    
# Line 542  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.7  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3