#######################################################################################

sub register_form {
# --------------------------------------------------------------------------
#	Output registration form.
#

    my $self = shift;
    my $errs = shift;

    my $q = $self->query();

    $self->set_session($q->cookie('SID'));

    my $lang_bit = $self->{session}{lang} || $q->param('lang');

    my $tmpl_path = "dynamic/" . $lang_bit . "_" . "register.shtml";
    my $tmpl = $self->load_tmpl($tmpl_path, die_on_bad_params => 0);

    $tmpl->param($errs) if $errs;

    return $tmpl->output;

}

#######################################################################################

sub register_process {
# --------------------------------------------------------------------------
#	Process registration form using CGI::Application::ValidateRM to check
#   for blank required fields..
#

 	my $self = shift;

    my $q = $self->query();
 
 	my ($results, $err_page) = $self->check_rm('register_form','_form_register_profile');
 	return $err_page if $err_page; 

	#..  do something with DFV $results object now
 
    my $lang_bit = $self->{session}{lang} || $q->param('lang');

    my $tmpl_path = "dynamic/" . $lang_bit . "_" . "register_success.shtml";
    my $tmpl = $self->load_tmpl($tmpl_path, die_on_bad_params => 0);

 	return $tmpl->output;

}

#######################################################################################

sub _form_register_profile {
# --------------------------------------------------------------------------
#	Internal sub called from register_process to determine required
#   form variables for registration form.
#

    return {
        required => 'email',
    };

}

#######################################################################################