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

Diff of /FigWebServices/show_pegs.cgi

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

revision 1.1, Wed Jun 2 19:45:53 2010 UTC revision 1.2, Wed Jun 2 19:52:14 2010 UTC
# Line 8  Line 8 
8    
9  my $cgi = new CGI;  my $cgi = new CGI;
10    
11  my @pegs = $cgi->param("pegs");  my @pegs = $cgi->param("peg");
12    
13  my @expt = $cgi->param("experiment");  my @expt = $cgi->param("experiment");
14    
# Line 33  Line 33 
33    
34  my $expts = join(",", map { "probes_$_" } @expt);  my $expts = join(",", map { "probes_$_" } @expt);
35  my $url = "http://bioseed.mcs.anl.gov/ross/FIG-Tmp/jbrowse/$genome/?loc=$genome:$contig:$min..$max&tracks=DNA,features,$expts";  my $url = "http://bioseed.mcs.anl.gov/ross/FIG-Tmp/jbrowse/$genome/?loc=$genome:$contig:$min..$max&tracks=DNA,features,$expts";
36  print "$url\n";  print $cgi->redirect($url);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3