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

fix - [ 1203834 ] accounts created by anon. reg. disobey def. userprofile settings

Browse source
This commit is contained in:
Roy Johnson 2005-06-08 20:04:10 +00:00
parent 64e287d424
commit 8047fd264d
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/FormProcessor.pm
View file

@ -486,16 +486,19 @@ The default value for this variable. If the variable is undefined then the defau
=cut
sub process {
my ($name, $type, $default) = @_;
my $value;
$type = "text" if ($type eq "");
$value = &$type($name);
unless (defined $value) {
return $default;
}
if ($value =~ /^[\s]+$/) {
return undef;
}
return $value;
}
@ -631,7 +634,6 @@ sub timeField {
Returns a URL.
=head3 name
The name of the form variable to retrieve.
=cut
@ -652,7 +654,7 @@ sub url {
=head2 yesNo ( name )
Returns either a 1 or 0 representing yes and no. Defaults to "0".
Returns either a 1 or 0 or undef representing yes, no, and undefined. Defaults to "0".
=head3 name
@ -664,7 +666,12 @@ sub yesNo {
if ($session{form}{$_[0]} > 0) {
return 1;
}
return 0;
elsif ($session{form}{$_[0]} eq "") {
return undef;
}
else {
return 0;
}
}

2
lib/WebGUI/Operation/Profile.pm
View file

@ -114,7 +114,7 @@ sub validateProfileData {
$a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId
and userProfileCategory.editable=1 and userProfileField.editable=1 order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber");
while (%field = $a->hash) {
$data{$field{fieldName}} = WebGUI::Macro::negate(WebGUI::FormProcessor::process($field{fieldName},$field{dataType},""));
$data{$field{fieldName}} = WebGUI::Macro::negate(WebGUI::FormProcessor::process($field{fieldName},$field{dataType}, $field{dataDefault}));
if ($field{required} && $data{$field{fieldName}} eq "") {
$error .= '<li>'.(eval $field{fieldLabel}).' '.WebGUI::International::get(451);
}elsif($field{fieldName} eq "email" && isDuplicateEmail($data{$field{fieldName}})){