die "Not implemented!\n";

    accessDenied($c, "User registration is currently not implemented.") unless isAdmin($c);

    my $fullName = trim $c->req->params->{fullname};
    my $password = trim $c->req->params->{password};

    $c->stash->{fullname} = $fullName;
    sub fail {
        my ($c, $msg) = @_;
        $c->stash->{errorMsg} = $msg;
    }

    return fail($c, "You did not enter the correct digits from the security image.")
        unless $c->validate_captcha($c->req->param('captcha'));

    error($c, "You did not enter the correct digits from the security image.")
        unless isAdmin($c) || $c->validate_captcha($c->req->param('captcha'));

    return fail($c, "Your user name is invalid. It must start with a lower-case letter followed by lower-case letters, digits, dots or underscores.")

    error($c, "Your user name is invalid. It must start with a lower-case letter followed by lower-case letters, digits, dots or underscores.")

    return fail($c, "Your user name is already taken.")

    error($c, "Your user name is already taken.")

    return fail($c, "Your must specify your full name.") if $fullName eq "";
    return fail($c, "You must specify a password of at least 6 characters.")
        unless isValidPassword($password);

    return fail($c, "The passwords you specified did not match.")
        if $password ne trim $c->req->params->{password2};

            , fullname => $fullName

        setPassword($user, $password);

        updatePreferences($c, $user);

        $c->authenticate({username => $userName, password => $password})

        $c->set_authenticated({username => $userName})

sub updatePreferences {
    my ($c, $user) = @_;

    my $password = trim($c->req->params->{password} // "");
    if ($user->type eq "hydra" && ($user->password eq "!" || $password ne "")) {
        error($c, "You must specify a password of at least 6 characters.")
            unless isValidPassword($password);
        error($c, "The passwords you specified did not match.")
            if $password ne trim $c->req->params->{password2};
        setPassword($user, $password);
    }
    my $fullName = trim($c->req->params->{fullname} // "");
    error($c, "Your must specify your full name.") if $fullName eq "";
    my $emailAddress = trim($c->req->params->{emailaddress} // "");
    # FIXME: validate email address?
    $user->update(
        { fullname => $fullName
        , emailonerror => $c->stash->{params}->{"emailonerror"} ? 1 : 0
        });
    if (isAdmin($c)) {
        $user->update({ emailaddress => $emailAddress })
            if $user->type eq "hydra";
        $user->userroles->delete;
        $user->userroles->create({ role => $_ })
            foreach paramToList($c, "roles");
    }
}

    my $fullName = trim $c->stash->{params}->{fullname};

        error($c, "Your must specify your full name.") if $fullName eq "";
        $user->update(
            { fullname => $fullName
            , emailonerror => $c->stash->{params}->{"emailonerror"} ? 1 : 0
            });
        my $password = $c->stash->{params}->{password} // "";
        if ($user->type eq "hydra" && $password ne "") {
            error($c, "You must specify a password of at least 6 characters.")
                unless isValidPassword($password);
            error($c, "The passwords you specified did not match.")
                if $password ne trim $c->stash->{params}->{password2};
            setPassword($user, $password);
        }
        if (isAdmin($c)) {
            $user->userroles->delete;
            $user->userroles->create({ role => $_})
                foreach paramToList($c, "roles");
        }

        updatePreferences($c, $user);

    [% IF !create && user.type == 'hydra' %]

    [% IF create || user.type == 'hydra' %]

    <!--

        <input type="text" class="span3" name="emailaddress" [% HTML.attributes(value => user.emailaddress) %]/>

        <input type="text" class="span3" name="emailaddress" [% IF !create && user.type == 'persona' %]disabled="disabled"[% END %] [%+ HTML.attributes(value => user.emailaddress) %]/>

    -->

    [% IF !create %]
      <div class="control-group">
        <div class="controls">
          <label class="checkbox">
            <input type="checkbox" name="emailonerror" [% IF emailonerror; 'checked="checked"'; END %]/>Receive evaluation error notifications
          </label>
        </div>

    <div class="control-group">
      <div class="controls">
        <label class="checkbox">
          <input type="checkbox" name="emailonerror" [% IF emailonerror; 'checked="checked"'; END %]/>Receive evaluation error notifications
        </label>

    [% END %]

    </div>

    [% IF !create %]

    [% IF !create || c.check_user_roles('admin') %]

    [% IF create %]

    [% IF create && !c.check_user_roles('admin') %]