sub qs_process {
	my $self = shift;
	my $dbh = $self->param('mydbh');
	
	my ($results, $err_page) = $self->check_rm('qs_display', {
		required => [qw/upfirstname uplastname upemail upusername uppassword confirm_password/],
		optional => [qw/upzip upcountry/],
		filters => ['trim'],
		constraints => {
			uppassword => {
				#Make sure passwords are the same
				name => 'user_passwords',
				constraint => \&check_password,
				params => [qw(uppassword confirm_password)],
			},
			upusername => {
				#Is username unique?
				name => 'user_username',
				constraint => sub { !$self->check_username(lc $_[0]); }
			},
			upemail => 'email',
			upzip => 'zip_or_postcode',
		},
		msgs => {
			any_errors => 'err__',
			prefix => 'err_',
			constraints => {
				'user_passwords' => "Your passwords don't match",
				'user_username' => "Username not unique",
			},
		},
	} );
	return $err_page if $err_page;

#
#Stuff here to handle case of validation being succesfull.