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

cleaning up warnings/variable redefinition and pod

Browse source
This commit is contained in:
Graham Knop 2008-11-24 01:34:32 +00:00
parent 807a5ad09e
commit dd90696d7c
5 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -151,22 +151,23 @@ sub validateProfileData {
my $opts = shift || {};
my $regOnly = $opts->{regOnly};
my $error = "";
my $warning = "";
my $fields = $regOnly ? WebGUI::ProfileField->getRegistrationFields($session)
: WebGUI::ProfileField->getEditableFields($session);
my $retHash = $session->user->validateProfileDataFromForm($fields);
my $warnings = $retHash->{warnings};
my $errors = $retHash->{errors};
my $format = "<li>%s</li>";
my $warningMessage = "";
my $errorMessage = "";
map { $warning .= sprintf($format,$_) }@{$warnings};
map { $error .= sprintf($format,$_) }@{$errors};
return ($retHash->{profile},$error,$warning);
for my $warning ( @{ $retHash->{warnings} } ) {
$warningMessage .= sprintf $format, $warning;
}
for my $error ( @{ $retHash->{errors} } ) {
$errorMessage .= sprintf $format, $error;
}
return ($retHash->{profile}, $errorMessage, $warningMessage);
}
#-------------------------------------------------------------------