change interface to accept trial lists.
[sgn.git] / cgi-bin / population.pl
blob2a5693bd1ae416fbc49bacb76e90f46d4791dcc9
1 #!/usr/bin/perl -w
3 =head1 DESCRIPTION
4 a redirect for a wrong url (/population.pl?population_id=12)
5 in qtl paper http://www.biomedcentral.com/1471-2105/11/525/abstract/
7 --pending a better solution...
9 =head1 AUTHOR
11 Isaak Y Tecle (iyt2@cornell.edu)
13 =cut
15 use strict;
16 use CGI;
18 my $cgi = CGI->new();
19 my $pop_id = $cgi->param('population_id');
21 print $cgi->redirect(-uri =>"phenome/population.pl?population_id=$pop_id", -status=>301);