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

Diff of /FigWebServices/ss_directed_compare_regions.cgi

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

revision 1.1, Mon Feb 9 18:16:38 2015 UTC revision 1.2, Tue Feb 10 16:50:41 2015 UTC
# Line 1  Line 1 
1  ########################################################################  ########################################################################
2  use CGI;  use CGI;
3    use FIG_Config;
4    
5    
6  if (-f "$FIG_Config::data/Global/why_down")  if (-f "$FIG_Config::data/Global/why_down")
# Line 65  Line 66 
66      exit;      exit;
67  }  }
68    
69  my $subsys = "/vol/core-seed/FIGdisk/FIG/Data/Subsystems";  my $subsys = "$FIG_Config::data/Subsystems";
70    #my $subsys = "/vol/core-seed/FIGdisk/FIG/Data/Subsystems";
71    
72  my $html = [];  my $html = [];
73  unshift @$html, "<TITLE>Subsystem-based compare-regions</TITLE>\n";  unshift @$html, "<TITLE>Subsystem-based compare-regions</TITLE>\n";
# Line 110  Line 112 
112      my($pegs) = @_;      my($pegs) = @_;
113    
114      my $features = join('&feature=',@$pegs);      my $features = join('&feature=',@$pegs);
115      return "http://core.theseed.org/FIG/seedviewer.cgi?page=Regions&feature=" . $features;      return "$FIG_Config::cgi_url/seedviewer.cgi?page=Regions&feature=" . $features;
116        #return "http://core.theseed.org/FIG/seedviewer.cgi?page=Regions&feature=" . $features;
117  }  }
118    
119  sub pegs_in_spreadsheet {  sub pegs_in_spreadsheet {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3