oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixing stupidity.

Browse source
This commit is contained in:
Martin Kamerbeek 2002-12-09 22:39:50 +00:00
parent 908ead7a4e
commit a77f92424c
3 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Authentication/WebGUI.pm
View file

@ -43,8 +43,8 @@ sub adminForm {
#-------------------------------------------------------------------
sub adminFormSave {
unless ($session{form}{authWebGUI.identifier} eq "password") {
WebGUI::Authentication::saveParams($_[0],'WebGUI',{identifier => Digest::MD5::md5_base64($session{form}{authWebGUI.identifier})});
unless ($session{form}{'authWebGUI.identifier'} eq "password") {
WebGUI::Authentication::saveParams($_[0],'WebGUI',{identifier => Digest::MD5::md5_base64($session{form}{'authWebGUI.identifier'})});
}
}
@ -75,13 +75,13 @@ sub registrationFormSave {
#-------------------------------------------------------------------
sub registrationFormValidate {
my ($error);
if ($session{form}{authWebGUI.identifier} ne $session{form}{authWebGUI.identifierConfirm}) {
if ($session{form}{'authWebGUI.identifier'} ne $session{form}{'authWebGUI.identifierConfirm'}) {
$error = '<li>'.WebGUI::International::get(3,'Auth/WebGUI');
}
if ($session{form}{authWebGUI.identifier} eq "password") {
if ($session{form}{'authWebGUI.identifier'} eq "password") {
$error .= '<li>'.WebGUI::International::get(5,'Auth/WebGUI');
}
if ($session{form}{authWebGUI.identifier} eq "") {
if ($session{form}{'authWebGUI.identifier'} eq "") {
$error .= '<li>'.WebGUI::International::get(4,'Auth/WebGUI');
}
return $error;
@ -109,10 +109,10 @@ sub userFormSave {
#-------------------------------------------------------------------
sub userFormValidate {
my ($error);
if ($session{form}{authWebGUI.identifier} ne $session{form}{identifierConfirm}) {
if ($session{form}{'authWebGUI.identifier'} ne $session{form}{identifierConfirm}) {
$error = '<li>'.WebGUI::International::get(3,'Auth/WebGUI');
}
if ($session{form}{authWebGUI.identifier} eq "") {
if ($session{form}{'authWebGUI.identifier'} eq "") {
$error .= '<li>'.WebGUI::International::get(4,'Auth/WebGUI');
}
return $error;