From 7c6c71e22aa15421b8f06a31305b30d6881076fb Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@linuxdv.org>
Date: Fri, 21 Nov 2014 13:37:07 +1000
Subject: [PATCH] = LDV::User->update

---
 lib/LDV/User.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/LDV/User.pm b/lib/LDV/User.pm
index d588480..eda90b0 100644
--- a/lib/LDV/User.pm
+++ b/lib/LDV/User.pm
@@ -66,7 +66,7 @@ sub create {
     my $user = $self->req->param('username');
     my $pass = $self->req->param('password');
     my $mail = $self->req->param('mail');
-    ($user and $pass and $email)
+    ($user and $pass and $mail)
       or die("please fill all fields\n");
     ($user =~ m|^([a-z0-9_-]){3,64}$|oia)
       or die("wrong username\n");
@@ -103,12 +103,13 @@ sub update {
       or die("wrong password\n");
 
     my %attrs = ();
-    foreach my $key (qw(displayname mail org mobile)) {
-      my $value = $self->req->param($key) or next;
+    foreach my $key (qw(displayName mail org mobile)) {
+      my $value = $self->req->param(lc($key));
       $attrs{$key} = $value;
     }
-    my $error = $self->app->ldap->update($user, %attrs);
-    die("$error\n") if $error; 1;
+    my $error = $self->app->ldap->update($user, \%attrs);
+    die("$error\n") if $error;
+    $self->redirect_to('/user/profile'); 1;
   } or do {
     $self->flash({result => "Can't save profile: $@"});
     $self->redirect_to('/user/login');