From: Michal Vaner <vorner@ucw.cz>
Date: Mon, 6 Oct 2008 16:31:28 +0000 (+0200)
Subject: Fix problem with empty login
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=fd658397f3556210f9e8c4de015bf3993522cb22;p=pciids.git

Fix problem with empty login
---

diff --git a/PciIds/Html/Users.pm b/PciIds/Html/Users.pm
index 99df698..c19bb5d 100644
--- a/PciIds/Html/Users.pm
+++ b/PciIds/Html/Users.pm
@@ -453,6 +453,8 @@ sub profileFormSubmit( $$$$ ) {
 		my $data = shift;
 		my $change = 0;
 		$change = 1 if $data->{'email'} ne $oldData->{'email'};
+		$data->{'login'} = undef if defined $data->{'login'} && $data->{'login'} eq '';
+		$oldData->{'login'} = undef if defined $oldData->{'login'} && $oldData->{'login'} eq '';
 		$change = 1 if ( ( ( defined $data->{'login'} ) != ( defined $oldData->{'login'} ) ) || ( ( defined $data->{'login'} ) && ( defined $oldData->{'login'} ) && ( $data->{'login'} ne $oldData->{'login'} ) ) );
 		$change = 1 if ( defined $data->{'password'} ) && ( $data->{'password'} ne '' );
 		return undef unless $change;