lib/SGN/Controller/AJAX/People.pm

   1
   2 =head1 NAME
   3
   4 SGN::Controller::AJAX::People - a REST controller class to provide the
   5 backend for the sgn_people schema
   6
   7 =head1 DESCRIPTION
   8
   9 REST interface for searching people, getting user data, etc.
  10
  11 =head1 AUTHOR
  12
  13 Naama Menda <nm249@cornell.edu>
  14
  15
  16 =cut
  17
  18 package SGN::Controller::AJAX::People;
  19
  20 use Moose;
  21
  22 use Data::Dumper;
  23 use List::MoreUtils qw /any /;
  24 use Try::Tiny;
  25 use CXGN::People::Schema;
  26
  27
  28 BEGIN { extends 'Catalyst::Controller::REST' }
  29
  30 __PACKAGE__->config(
  31     default   => 'application/json',
  32     stash_key => 'rest',
  33     map       => { 'application/json' => 'JSON', 'text/html' => 'JSON' },
  34    );
  35
  36
  37
  38 =head2 autocomplete
  39
  40 Public Path: /ajax/people/autocomplete
  41
  42 Autocomplete a person name.  Takes a single GET param,
  43     C<person>, responds with a JSON array of completions for that term.
  44
  45 =cut
  46
  47 sub autocomplete : Local : ActionClass('REST') { }
  48
  49 sub autocomplete_GET :Args(1) {
  50     my ( $self, $c , $print_id ) = @_;
  51
  52     my $person = $c->req->param('term');
  53     # trim and regularize whitespace
  54     $person =~ s/(^\s+|\s+)$//g;
  55     $person =~ s/\s+/ /g;
  56     my $q = "SELECT sp_person_id, first_name, last_name FROM sgn_people.sp_person
  57              WHERE lower(first_name) like ? OR lower(last_name) like ?
  58              LIMIT 20";
  59
  60     my $sth = $c->dbc->dbh->prepare($q);
  61     $sth->execute( lc "$person\%" , lc "$person\%" );
  62     my @results;
  63     while (my ($sp_person_id, $first_name, $last_name) = $sth->fetchrow_array ) {
  64         $sp_person_id = $print_id ? "," . $sp_person_id : undef;
  65         push @results , "$first_name, $last_name $sp_person_id";
  66     }
  67     $c->{stash}->{rest} = \@results;
  68 }
  69
  70
  71
  72 ###
  73 1;
  74