lib/SGN/Controller/Ontology.pm

   1
   2 package SGN::Controller::Ontology;
   3
   4 use CXGN::Chado::Cvterm;
   5
   6 use Moose;
   7
   8 BEGIN { extends 'Catalyst::Controller' };
   9 with 'Catalyst::Component::ApplicationAttribute';
  10
  11
  12
  13 sub onto_browser : Path('/tools/onto') :Args(0) {
  14     my $self = shift;
  15     my $c = shift;
  16
  17     my $root_nodes = $c->config->{onto_root_namespaces};
  18     my @namespaces = split ",", $root_nodes;
  19     foreach my $n (@namespaces) {
  20         $n =~ s/\s*(\w+)\s*\(.*\)/$1/g;
  21         print STDERR "Adding node $n\n";
  22     }
  23     #$c->stash->{root_nodes} = $c->req->param("root_nodes");
  24     $c->stash->{root_nodes} = join " ", @namespaces;
  25     $c->stash->{db_name} = $c->req->param("db_name");
  26     $c->stash->{expand} = $c->req->param("expand");
  27
  28     $c->stash->{template} = '/ontology/standalone.mas';
  29
  30 }
  31
  32 1;