cgi-bin/gem/target.pl

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5   target.pl
   6   Controller to show the web_page for target information using MASON.
   7
   8 =cut
   9
  10 =head1 SYNOPSIS
  11
  12
  13 =head1 DESCRIPTION
  14
  15   This is a controller script to show the web_page using MASON
  16
  17 =cut
  18
  19 =head1 AUTHORS
  20
  21  Aureliano Bombarely Gomez
  22  (ab782@cornell.edu)
  23
  24 =cut
  25
  26
  27 use strict;
  28 use warnings;
  29
  30 use CXGN::MasonFactory;
  31 use CXGN::Page;
  32
  33 use CXGN::DB::Connection;
  34 use CXGN::DB::DBICFactory;
  35 use CXGN::GEM::Schema;
  36 use CXGN::GEM::Target;
  37
  38 ## Call the mason object
  39
  40 my $m = CXGN::MasonFactory->new();
  41
  42
  43 ## Create the schema object for gem (and gem related searches)
  44
  45 my $psqlv = `psql --version`;
  46 chomp($psqlv);
  47
  48 my @schema_list = ('gem','biosource','metadata','public');
  49 if ($psqlv =~ /8\.1/) {
  50     push @schema_list, 'tsearch2';
  51 }
  52
  53 my $schema = CXGN::DB::DBICFactory->open_schema( 'CXGN::GEM::Schema', search_path => \@schema_list, );
  54
  55
  56 ## Use of CXGN::Page to take the arguments from the URL
  57
  58 my %args = CXGN::Page->new()
  59                      ->get_all_encoded_arguments();
  60
  61
  62 ## Create the target object (by default it will create an empty object)
  63
  64 my $target = CXGN::GEM::Target->new($schema);
  65
  66 if (exists $args{'id'} && $args{'id'} =~ m/^\d+$/) {
  67    $target = CXGN::GEM::Target->new($schema, $args{'id'});
  68 } elsif (exists $args{'name'}) {
  69    $target = CXGN::GEM::Target->new_by_name($schema, $args{'name'});
  70 }
  71
  72
  73 ## There are two ways to access to the page, using id=int or name=something. If use other combinations give an error message
  74
  75 if (defined $target->get_target_id or defined $target->get_target_name ) {
  76     $m->exec('/gem/target_detail.mas',
  77              schema => $schema,
  78              target => $target );
  79 } else {
  80     $m->exec('/gem/gem_page_error.mas',
  81              schema => $schema,
  82              object => $target );
  83 }
  84
  85
  86