sub pr_businesshours_process {
	my $self = shift;
	my $q = $self->query;
	
	my ($results, $err_page) = $self->check_rm('pr_businesshours_edit_display',
		{
			required => [qw/intervalid/],
			optional => [qw/intstart intend intint/],
			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_',
			},
		}
	);
	print STDERR Dumper $results;
	#print STDERR $err_page;
	return $err_page if $err_page;
	# do something with $results->valid here.
	my $output = $q->start_html;
	$output .= "<p>Page appears to have validated<br>Start: " . $q->param('intstart') . " End: " . $q->param('intend');
	return $output;
}