lib/SGN/Controller/Cvterm.pm

   1
   2 package SGN::Controller::Cvterm;
   3
   4 use CXGN::Chado::Cvterm;
   5
   6 use Moose;
   7
   8 BEGIN { extends 'Catalyst::Controller' };
   9 with 'Catalyst::Component::ApplicationAttribute';
  10
  11
  12 =head2 view_cvterm
  13
  14 Public path: /cvterm/<cvterm_id>/view
  15
  16 View a cvterm detail page.
  17
  18 Chained off of L</get_cvterm> below.
  19
  20 =cut
  21
  22 sub view_cvterm : Chained('get_cvterm') PathPart('view') Args(0) {
  23     my ( $self, $c, $action) = @_;
  24     my $cvterm = $c->stash->{cvterm};
  25
  26     $c->stash(
  27         template => '/chado/cvterm.mas',
  28         cvterm   => $cvterm,
  29         );
  30
  31 }
  32
  33
  34 =head2 get_cvterm
  35
  36 Chain root for fetching a cvterm object to operate on.
  37
  38 Path part: /cvterm/<cvterm_id>
  39
  40 =cut
  41
  42 sub get_cvterm : Chained('/')  PathPart('cvterm')  CaptureArgs(1) {
  43     my ($self, $c, $cvterm_id) = @_;
  44
  45     my $identifier_type = $c->stash->{identifier_type}
  46         || $cvterm_id =~ /[^-\d]/ ? 'accession' : 'cvterm_id';
  47
  48     my $cvterm;
  49     if( $identifier_type eq 'cvterm_id' ) {
  50         $cvterm = CXGN::Chado::Cvterm->new($c->dbc->dbh, $cvterm_id);
  51     } elsif ( $identifier_type eq 'accession' )  {
  52         $cvterm = CXGN::Chado::Cvterm->new_with_accession ($c->dbc->dbh , $cvterm_id) ;
  53     }
  54     my $found_cvterm_id = $cvterm->get_cvterm_id
  55         or $c->throw_404( "Cvterm not found" );
  56
  57     $c->stash->{cvterm}     = CXGN::Chado::Cvterm->new($c->dbc->dbh, $found_cvterm_id);
  58
  59     return 1;
  60 }
  61
  62
  63 1;