diff options
| author | Buchan Milne <buchan@mageia.org> | 2010-11-04 15:41:44 +0000 |
|---|---|---|
| committer | Buchan Milne <buchan@mageia.org> | 2010-11-04 15:41:44 +0000 |
| commit | 7b6f1a3b1c9d44c0680bcc8f26805696146b45c9 (patch) | |
| tree | 2475ea0ae22305c1082207462ac1435150c9341a /lib | |
| parent | d57ebd05a5de373dc4698002831164187ebdfd02 (diff) | |
| download | identity-7b6f1a3b1c9d44c0680bcc8f26805696146b45c9.tar identity-7b6f1a3b1c9d44c0680bcc8f26805696146b45c9.tar.gz identity-7b6f1a3b1c9d44c0680bcc8f26805696146b45c9.tar.bz2 identity-7b6f1a3b1c9d44c0680bcc8f26805696146b45c9.tar.xz identity-7b6f1a3b1c9d44c0680bcc8f26805696146b45c9.zip | |
Fix preferredLanguage error
update perl dependencies
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CatDap/Controller/register.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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) { |