aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorBuchan Milne <buchan@mageia.org>2010-11-04 15:41:44 +0000
committerBuchan Milne <buchan@mageia.org>2010-11-04 15:41:44 +0000
commit7b6f1a3b1c9d44c0680bcc8f26805696146b45c9 (patch)
tree2475ea0ae22305c1082207462ac1435150c9341a /lib
parentd57ebd05a5de373dc4698002831164187ebdfd02 (diff)
downloadidentity-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.pm5
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) {