fix extra my-s in Operation/Profile.pm

This commit is contained in:
Colin Kuskie 2008-11-21 16:49:59 +00:00
parent 6455b1b85c
commit 86047445a7

View file

@ -162,8 +162,7 @@ sub validateProfileData {
my $errors = $retHash->{errors};
my $format = "<li>%s</li>";
my $warning = "";
my $error = "";
map { $warning .= sprintf($format,$_) }@{$warnings};
map { $error .= sprintf($format,$_) }@{$errors};
@ -211,4 +210,4 @@ sub www_viewProfile {
}
1;
1;