cgi-bin/search/unigene_mason.pl

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5   unigene_mason.pl
   6   Code to show the web_page for unigene using MASON.
   7
   8 =cut
   9
  10 =head1 SYNOPSIS
  11
  12
  13 =head1 DESCRIPTION
  14
  15   This is the 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::Page;
  31
  32 ## Use of CXGN::Page to take the arguments from the URL
  33
  34 my $page = CXGN::Page->new();
  35 my %args = $page->get_all_encoded_arguments();
  36
  37 ## There are two ways to access to the page, using id as integer or as
  38 ## SGN-U+int. If use other combinations give an error message
  39
  40 my $m = CXGN::MasonFactory->new;
  41
  42 if (exists $args{'id'} && defined $args{'id'}) {
  43     $m->exec( '/transcript/unigene_detail.mas',
  44               id          => $args{'id'},
  45               highlight   => $args{'highlight'},
  46               force_image => $args{'force_image'}
  47             );
  48 } else {
  49     $m->exec( '/transcript/transcript_page_error.mas',
  50               object => 'unigene'
  51             );
  52 }