Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
/author/by_user: accept POST params
  • Loading branch information
mickeyn committed Jul 18, 2017
1 parent 6a4be47 commit ae1840d
Showing 1 changed file with 10 additions and 3 deletions.
13 changes: 10 additions & 3 deletions lib/MetaCPAN/Server/Controller/Author.pm
Expand Up @@ -105,9 +105,16 @@ sub by_user : Path('by_user') : Args(1) {
# /author/by_user?user=USER_ID1&user=USER_ID2...
sub by_users : Path('by_user') : Args(0) {
my ( $self, $c ) = @_;
my @users = $c->req->param('user');
$c->detach( '/bad_request', ['No users requested'] ) unless @users;
my $data = $self->model($c)->raw->by_user( \@users );

my $body_data = $c->req->body_data;
my $users
= $body_data
? $body_data->{user}
: [ $c->req->param('user') ];
$c->detach( '/bad_request', ['No users requested'] )
unless $users and @{$users};

my $data = $self->model($c)->raw->by_user($users);

$data
? $c->stash($data)
Expand Down

0 comments on commit ae1840d

Please sign in to comment.