cgi-bin/tools/genefamily/search.pl

   1 use CatalystX::GlobalContext qw( $c );
   2 use strict;
   3 use warnings;
   4 use CGI ();
   5 use CXGN::DB::Connection;
   6 use CXGN::People::Person;
   7 use CXGN::Login;
   8
   9 my $cgi = CGI->new();
  10 my $dbh = CXGN::DB::Connection->new();
  11
  12 my $login        = CXGN::Login->new($dbh);
  13 my $sp_person_id = $login->has_session();
  14 my $person       = CXGN::People::Person->new($dbh, $sp_person_id);
  15
  16 unless( $person->has_role('genefamily_editor') || $person->has_role('curator')) {
  17     $c->throw(
  18         message  => 'Please log in as the correct user to access the gene families',
  19         is_error => 0,
  20        );
  21 }
  22
  23 $c->forward_to_mason_view(
  24     '/tools/genefamily/search.mas',
  25     genefamily_id => $cgi->param('genefamily_id') || '',
  26     dataset       => $cgi->param('dataset')       || '',
  27     member_id     => $cgi->param('member_id')     || '',
  28     action        => $cgi->param('action')        || '',
  29    );
  30