diff options
-rw-r--r-- | META.yml | 2 | ||||
-rw-r--r-- | lib/CatDap/Controller/register.pm | 5 |
2 files changed, 4 insertions, 3 deletions
@@ -34,8 +34,10 @@ requires: Catalyst::View::TT: 0 Config::General: 0 Crypt::CBC: 0 + Crypt::Blowfish: 0 Data::UUID: 0 Email::Valid: 0 + FCGI: 0 Moose: 0 namespace::autoclean: 0 resources: diff --git a/lib/CatDap/Controller/register.pm b/lib/CatDap/Controller/register.pm index 0e17699..c90032d 100644 --- a/lib/CatDap/Controller/register.pm +++ b/lib/CatDap/Controller/register.pm @@ -91,8 +91,7 @@ sub check : Local { my $password = $ug->create_str(); my $cn = $c->request->params->{gn} . " " . $c->request->params->{sn}; $c->log->info("Creating account for user $username"); - #$c->log->debug("Preferred language(s)"); - #$c->log->debug(Dumper($c->languages)); + $c->log->debug("Preferred language: " . ${$c->languages}[0]); $mesg = $c->model('Proxy')->add($dn, attr => [ objectclass => [ 'inetOrgPerson' ], @@ -102,7 +101,7 @@ sub check : Local { mail => $email, pwdReset => 'TRUE', userPassword => $password, - preferredLanguage => $c->{languages}[0], + preferredLanguage => ${$c->languages}[0], ] ); if ($mesg->code) { |