Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

47 lines (28 sloc) 0.847 kb
package LIMS2::WebApp::Controller::API::Report;
use Moose;
use MooseX::Types::Path::Class;
use LIMS2::Report;
use namespace::autoclean;
BEGIN {extends 'LIMS2::Catalyst::Controller::REST'; }
=head1 NAME
LIMS2::WebApp::Controller::API::Report - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
sub report_ready :Path( '/api/report/ready' ) :Args(1) :ActionClass('REST') {
}
sub report_ready_GET {
my ( $self, $c, $report_id ) = @_;
$c->assert_user_roles( 'read' );
my $status = LIMS2::Report::get_report_status( $report_id );
return $self->status_ok( $c, entity => { status => $status } );
}
=head1 AUTHOR
Ray Miller
=head1 LICENSE
This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
__PACKAGE__->meta->make_immutable;
1;
Jump to Line
Something went wrong with that request. Please try again.