package LIMS::Controller::Admin::Config::ResultSummaryOptions; use strict; use warnings; use Data::Dumper; use parent 'LIMS::Controller::Admin'; __PACKAGE__->authz->authz_runmodes( ':all' => 'do_admin' ); # ------------------------------------------------------------------------------ sub default : StartRunmode { my $self = shift; $self->_debug_path($self->get_current_runmode); my $errs = shift; # $self->stash( errs => $errs ); my $lab_sections = $self->model('LabSection')->get_lab_sections; # first check we have at least 1 lab_section defined: unless (@$lab_sections) { my $msg = $self->messages('admin')->{no_sections}; $self->stash( error_msg => $msg ); return $self->forward('missing_data'); } my $rs_options; # if we have a result_summary_option selected: if ( my $section_id = $self->query->param('id') ) { # warn 'section_id:'.$section_id; $rs_options = $self->model('Result') ->get_results_summary_options_for_section($section_id); } $self->tt_params( lab_sections => $lab_sections, rs_options => $rs_options, ); # get js validation foo_onsubmit & foo_dfv_js vars into tt_params: $self->js_validation_profile('result_summary_options'); return $self->tt_process($errs); } # ------------------------------------------------------------------------------------- sub list : Runmode { my $self = shift; # just check we have a param 'id', then forward to default: my $id = $self->param('id') || return $self->error('no id passed to '.$self->get_current_runmode); # $self->debug('id:'.$id); $self->query->param( id => $id ); return $self->forward('default'); } # ------------------------------------------------------------------------------------- sub edit : Runmode { my $self = shift; $self->_debug_path($self->get_current_runmode); my $errs = shift; my $id = $self->param('id') || return $self->error('no id passed to '.$self->get_current_runmode); # $self->debug('id:'.$id); my $data = $self->model('Result')->get_results_summary_option($id); my $lab_sections = $self->model('LabSection')->get_lab_sections; $self->tt_params( data => $data, lab_sections => $lab_sections, ); # get js validation foo_onsubmit & foo_dfv_js vars into tt_params: $self->js_validation_profile('result_summary_options'); return $self->tt_process($errs); } # ------------------------------------------------------------------------------------- sub update : Runmode { my $self = shift; $self->_debug_path($self->get_current_runmode); my $id = $self->param('id') || ''; # $self->debug('id:'.$id); # put id (if submitted) into params() as _record_id for validation: if ( $id ) { $self->query->param( _record_id => $id ); } # if param 'id' passed, return error to edit(): my $error_rm = $id ? 'edit' : 'default'; my $dfv = $self->check_rm($error_rm, $self->validate('result_summary_options') ) || return $self->dfv_error_page; my $data = $dfv->valid || return $self->forward('default'); # eg if empty param # provide 'id' if supplied, so record updated, otherwise new one created: if ($id) { $data->{id} = $id; } my $rtn = $self->model('Result')->update_result_summary_options($data); if ($rtn) { return $self->error($rtn); } else { # set success msg: my $msg = $id ? 'edit_success' : 'create_success'; $self->flash( info => $self->messages('action')->{$msg} ); return $self->redirect( $self->query->url . '/config/result-summary-options/list/' . $data->{lab_section_id} ); } } 1;