cgi-bin/phenome/qtl_form.pl

   1
   2 =head1 DESCRIPTION
   3 creates all the web forms for the qtl data submission
   4 and sends the data to qtl_load.pl for processing
   5 and loading it to the database.
   6
   7 =head1 AUTHOR
   8 Isaak Y Tecle (iyt2@cornell.edu)
   9
  10 =cut
  11
  12 use strict;
  13 use warnings;
  14
  15 use CXGN::Login;
  16
  17 use CatalystX::GlobalContext qw( $c );
  18
  19 my $dbh          = $c->dbc->dbh;
  20 my $login        = CXGN::Login->new($dbh);
  21 my $sp_person_id = $login->verify_session();
  22 my $cgi          = CGI->new();
  23 my %args         = $cgi->Vars;
  24 my $type         = $args{type};
  25 my $pop_id       = $args{pop_id};
  26
  27 if ($sp_person_id)
  28 {
  29     my $guide
  30         = qq | <a  href="http://docs.google.com/View?id=dgvczrcd_1c479cgfb">Guidelines</a> |;
  31
  32     if ( !$type )
  33     {
  34         $c->forward_to_mason_view( '/qtl/qtl_form/intro.mas',
  35                                    pop_id => $pop_id,
  36                                    guide  => $guide
  37         );
  38     }
  39     elsif ( $type eq 'pop_form' )
  40     {
  41         $c->forward_to_mason_view( '/qtl/qtl_form/pop_form.mas',
  42                                    guide => $guide );
  43     }
  44
  45     elsif ( $type eq 'trait_form' )
  46     {
  47         $c->forward_to_mason_view( '/qtl/qtl_form/trait_form.mas',
  48                                    pop_id => $pop_id,
  49                                    guide  => $guide
  50         );
  51     }
  52
  53     elsif ( $type eq 'pheno_form' )
  54     {
  55         $c->forward_to_mason_view( '/qtl/qtl_form/pheno_form.mas',
  56                                    pop_id => $pop_id,
  57                                    guide  => $guide
  58         );
  59
  60     }
  61
  62     elsif ( $type eq 'geno_form' )
  63     {
  64         $c->forward_to_mason_view( '/qtl/qtl_form/geno_form.mas',
  65                                    pop_id => $pop_id,
  66                                    guide  => $guide
  67         );
  68
  69     }
  70
  71     elsif ( $type eq 'stat_form' )
  72     {
  73         $c->forward_to_mason_view( '/qtl/qtl_form/stat_form.mas',
  74                                    pop_id => $pop_id,
  75                                    guide  => $guide,
  76                                    referer=> $c->req->path
  77         );
  78
  79     }
  80
  81     elsif ( $type eq 'confirm' )
  82     {
  83         $c->forward_to_mason_view( '/qtl/qtl_form/confirm.mas',
  84                                    pop_id => $pop_id,
  85                                    guide  => $guide
  86         );
  87     }
  88 }
  89