• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Local::EmailAlert;

use Moose;
extends 'LIMS::Local::LIMS'; # provides LIMS methods for cron scripts
with (
    'LIMS::Controller::Roles::DataMap',
    'LIMS::Controller::Roles::RecordHandler', # send_email_alert(), get_single_request_data()
);
__PACKAGE__->meta->make_immutable;

# takes functionality from C::Request::email_alert() to prepare data for
# C::Roles::RecordHandler::send_email_alert()
sub email_alert {
	my $self = shift;
    my $args = shift;

    my $request_id = $args->{request_id};
	my $mdt_centre = $args->{mdt_centre}; # Airedale, Bradford, Leeds, etc

	my $request_data = $self->get_single_request_data($request_id);
	# stash request_data for send_email_alert():
	$self->stash(request_data => $request_data);

    my $rtn = $self->send_email_alert($mdt_centre); # C::Roles::RecordHandler method
    return $rtn;
}

1;