None available.
sub process
{ my $self = shift;
my $object = $self->object;
my @report_ids = $object->param('report_id');
foreach my $id (@report_ids) {
my $annotation = EnsEMBL::Web::Data::HcAnnotation->find('report_id' => $id);
unless ($annotation) {
EnsEMBL::Web::Data::HcAnnotation->new();
$annotation->report_id = $id;
}
$annotation->action = $object->param('action');
$annotation->comment = $object->param('comment');
$annotation->save;
}
$object->redirect('/'.$object->species.'/Healthcheck/Details');
}
}
1; } |