cgi-bin/chado/cvterm.pl

   1 use strict;
   2 use warnings;
   3 use CGI qw /param/;
   4 use CXGN::Chado::Cvterm;
   5
   6 #  Displays a static cvterm detail page.
   7
   8 use CatalystX::GlobalContext qw( $c );
   9
  10
  11 my $q   = CGI->new();
  12 my $dbh = CXGN::DB::Connection->new();
  13
  14 my $cvterm_id = $q->param("cvterm_id") + 0;
  15 my $cvterm_accession = $q->param("cvterm_name");
  16 my $cvterm;
  17
  18 if ( $cvterm_accession  ) {
  19     $cvterm = CXGN::Chado::Cvterm->new_with_accession( $dbh, $cvterm_accession);
  20     $cvterm_id = $cvterm->get_cvterm_id();
  21 } elsif ( $cvterm_id  ) {
  22     $cvterm = CXGN::Chado::Cvterm->new( $dbh, $cvterm_id );
  23 }
  24
  25 unless ( $cvterm_id && $cvterm_id =~ m /^\d+$/ ) {
  26     $c->throw( is_client_error => 1, public_message => 'Invalid arguments' );
  27 }
  28
  29
  30
  31 $c->forward_to_mason_view(
  32     '/chado/cvterm.mas',
  33     cvterm    => $cvterm,
  34     );
  35
  36