cgi-bin/phenome/population_indls.pl

   1 #!/usr/bin/perl -w
   2
   3 =head1 DESCRIPTION
   4 redirects to qtl_analysis.pl
   5
   6 =cut
   7
   8 use strict;
   9 use warnings;
  10
  11
  12 use CGI;
  13
  14 my $cgi = CGI->new();
  15 my $pop_id  = $cgi->param('population_id');
  16 my $term_id = $cgi->param('cvterm_id');
  17
  18 print $cgi->redirect("qtl_analysis.pl?population_id=$pop_id&cvterm_id=$term_id", 301);