• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Controller::Outreach;

use Moose;
BEGIN { extends 'LIMS::Base' }
with (
	'LIMS::Controller::Roles::RecordHandler',
);
use namespace::clean -except => 'meta';

__PACKAGE__->meta->make_immutable(inline_constructor => 0);
# use LIMS::Local::Drollness;

use Data::Dumper;
use Lingua::EN::Words2Nums;

# ------------------------------------------------------------------------------
# default() should never be called direct - redirect to start page:
sub default : StartRunmode {
    my $self = shift; $self->_debug_path($self->get_current_runmode);
    return $self->redirect( $self->query->url );
}

# ------------------------------------------------------------------------------
sub load : Runmode {
    my $self = shift; $self->_debug_path($self->get_current_runmode);

    return $self->forbidden() unless $self->user_can('report');

    #my @follow_up_opts = qw(zero_month one_month three_month six_month other);
    #for (@follow_up_opts) {
    #    if ( /(\w+)_month/ ) {
    #        my $num = words2nums($1); warn Dumper $num;
    #    }
    #} return 1;
    
    # set flag & redirect to Report controller:
    my $url = $self->query->url . '/report/=/' . $self->param('id');
    return $self->redirect($url . '?is_outreach=1');
}

# ------------------------------------------------------------------------------
sub haematology : Runmode {
    my $self = shift; $self->_debug_path($self->get_current_runmode);
    my $errs = shift; $self->stash( errs => $errs ); # for debugging in tmpl

    return $self->forbidden() unless $self->user_can('report');

    my $request_id = $self->param('id')
    || return $self->error('no id passed to '.$self->get_current_runmode);

}

=begin # for now, just redirect:
sub _load : StartRunmode {
    my $self = shift; return LIMS::Local::Drollness::silly_werder(2,10);
    
    my $request_id = $self->param('id')
    || return $self->error('no id passed to ' . $self->get_current_runmode);

    my $url = 'http://163.160.171.164/outreach?id=' . $request_id;
    
    return $self->redirect( $url );    
}
=cut

1;