fixed www-data emails
[sgn.git] / cgi-bin / qtl / index.pl
blob254e05b0c8fc6ea2537205400d10ec7c8ed596d3
1 use CatalystX::GlobalContext qw( $c );
2 use strict;
3 use CXGN::Page;
5 my $page = CXGN::Page->new("SGN", "Isaak");
7 my $redir = $page->client_redirect("../search/direct_search.pl?search=qtl");
9 $c->forward_to_mason_view('/qtl/index.mas', $redir);