cgi-bin/phenome/locus_display.pl

   1 use strict;
   2 use warnings;
   3
   4 use CXGN::People::Person;
   5
   6 use CGI qw/ param /;
   7
   8 use CXGN::DB::Connection;
   9 use CXGN::Phenome::Locus;
  10
  11 use CatalystX::GlobalContext qw( $c );
  12
  13 my $cgi = CGI->new();
  14
  15 my $locus_id = $cgi->param("locus_id") + 0;
  16
  17 unless ($locus_id =~m /^\d+$/) {
  18     $c->throw( is_error=>0,
  19                message => "Invalid locus identifier $locus_id",
  20         );
  21 }
  22 print $cgi->redirect("/locus/$locus_id/view", 301);
  23
  24
  25 #############
  26