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

Fixed a Postgres bug with editing user profiles.

Browse source
This commit is contained in:
JT Smith 2003-01-24 02:32:12 +00:00
parent 5ee1a385f5
commit 7dd8901c15
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Operation/User.pm
View file

@ -317,6 +317,7 @@ sub www_editUserKarmaSave {
sub www_editUserProfile { sub www_editUserProfile {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3)); return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory); my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory);
tie %data, 'Tie::CPHash';
$output = helpIcon(32); $output = helpIcon(32);
$output .= '<h1>'.WebGUI::International::get(455).'</h1>'; $output .= '<h1>'.WebGUI::International::get(455).'</h1>';
$f = WebGUI::HTMLForm->new; $f = WebGUI::HTMLForm->new;
@ -345,7 +346,7 @@ sub www_editUserProfile {
$default = eval $data{dataDefault}; $default = eval $data{dataDefault};
} }
$f->select($data{fieldName},$values,$label,$default); $f->select($data{fieldName},$values,$label,$default);
} else { } elsif ($method) {
$default = $session{form}{$data{fieldName}} || $user{$data{fieldName}} || eval $data{dataDefault}; $default = $session{form}{$data{fieldName}} || $user{$data{fieldName}} || eval $data{dataDefault};
$f->$method($data{fieldName},$label,$default); $f->$method($data{fieldName},$label,$default);
} }