2 |
use Moose; |
use Moose; |
3 |
use namespace::autoclean; |
use namespace::autoclean; |
4 |
use Data::UUID; |
use Data::UUID; |
5 |
use Data::Dumper; |
#use Data::Dumper; |
6 |
use Net::LDAP::Extension::SetPassword; |
use Net::LDAP::Extension::SetPassword; |
7 |
|
|
8 |
BEGIN { extends 'Catalyst::Controller'; } |
BEGIN { extends 'Catalyst::Controller'; } |
447 |
if ($haveall) { |
if ($haveall) { |
448 |
$entry->add( objectClass => [$objectclass] ); |
$entry->add( objectClass => [$objectclass] ); |
449 |
$c->log->debug("About to push updates to $dn"); |
$c->log->debug("About to push updates to $dn"); |
450 |
$c->log->debug( Dumper( \$entry->changes ) ); |
#$c->log->debug( Dumper( \$entry->changes ) ); |
451 |
$mesg = $entry->update; |
$mesg = $entry->update; |
452 |
push @errors, $mesg->error if $mesg->code; |
push @errors, $mesg->error if $mesg->code; |
453 |
$c->stash( template => 'admin/account.tt', errors => @errors ); |
$c->stash( template => 'admin/account.tt', errors => @errors ); |
506 |
# send the mail in the users preferred language |
# send the mail in the users preferred language |
507 |
my @oldlang = $c->languages; |
my @oldlang = $c->languages; |
508 |
if ($entry->preferredLanguage) { |
if ($entry->preferredLanguage) { |
509 |
$c->log->debug("Setting languages to: " . Dumper($entry->preferredLanguage)); |
#$c->log->debug("Setting languages to: " . Dumper($entry->preferredLanguage)); |
510 |
$c->languages([$entry->preferredLanguage]); |
$c->languages([$entry->preferredLanguage]); |
511 |
} |
} |
512 |
$c->stash( |
$c->stash( |