lib/SGN/Controller/solGS/AJAX/solGS.pm

   1
   2 =head1 NAME
   3
   4 SGN::Controller::solGS::AJAX::solGS - a REST controller class to provide the
   5 backend for objects linked with solgs
   6
   7 =head1 AUTHOR
   8
   9 Isaak Yosief Tecle <iyt2@cornell.edu>
  10
  11 =cut
  12
  13 package SGN::Controller::solGS::AJAX::solGS;
  14
  15 use Moose;
  16
  17
  18 BEGIN { extends 'Catalyst::Controller::REST' }
  19
  20 __PACKAGE__->config(
  21     default   => 'application/json',
  22     stash_key => 'rest',
  23     map       => { 'application/json' => 'JSON', 'text/html' => 'JSON' },
  24    );
  25
  26
  27
  28 sub solgs_trait_search_autocomplete :  Path('/solgs/ajax/trait/search') : ActionClass('REST') { }
  29
  30 sub solgs_trait_search_autocomplete_GET :Args(0) {
  31     my ( $self, $c ) = @_;
  32
  33     my $term = $c->req->param('term');
  34
  35     $term =~ s/(^\s+|\s+)$//g;
  36     $term =~ s/\s+/ /g;
  37
  38     my $traits = $c->model("solGS::solGS")->search_trait($term);
  39
  40     $c->{stash}->{rest} = $traits;
  41
  42 }
  43
  44
  45 sub solgs_population_search_autocomplete :  Path('/solgs/ajax/population/search') : ActionClass('REST') { }
  46
  47 sub solgs_population_search_autocomplete_GET :Args(0) {
  48     my ( $self, $c ) = @_;
  49
  50     my $term = $c->req->param('term');
  51
  52     $term =~ s/(^\s+|\s+)$//g;
  53     $term =~ s/\s+/ /g;
  54     my @response_list;
  55
  56     my $rs = $c->model("solGS::solGS")->project_details_by_name($term);
  57
  58     while (my $row = $rs->next) {
  59         push @response_list, $row->name;
  60     }
  61
  62     $c->{stash}->{rest} = \@response_list;
  63 }
  64
  65
  66
  67
  68 ###
  69 1;
  70 ###