'missing' => {}, 'valid' => { 'intstart' => '08:00:00', 'intid' => '29' }, '__CURRENT_CONSTRAINT_NAME' => 'date_and_time', '__CURRENT_CONSTRAINT_VALUE' => '21:65:00', 'msgs' => {}, 'unknown' => { 'rm' => 1, '_save' => 1, 'dow' => 1 }, 'invalid' => { 'intend' => [ 'date_and_time' ] } #### sub edit_bh_process { my $self = shift; my $sess = $self->param('up_session'); my ($results, $err_page) = $self->check_rm('edit_bh_display', { debug => 1, required => [qw/intid/], optional => [qw/intstart intend/], filters => ['trim'], validator_packages => [qw(Data::FormValidator::Constraints::Dates)], constraints => { intstart => { name => 'date_and_time', constraint_method => 'date_and_time', params => [ \'hh:mm:ss' ], }, intend => { name => 'date_and_time', constraint_method => 'date_and_time', params => [ \'hh:mm:ss' ], }, }, msgs => { constraints => { 'date_and_time' => "Invalid time format", }, any_errors => 'err__', prefix => 'err_', }, } ); # if errors return the error page #print STDERR $err_page, "\n"; print STDERR Dumper( $results ); return $err_page if $err_page; #Results seem valid! my $dfv_results = $results->valid(); print STDERR Dumper( $dfv_results ); return; }