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

Fix incorrect translation of $user->profileField to $user->get. ProfileField was a mutator, not just an accessor.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-19 08:52:46 -08:00
parent e03bb22d56
commit 68638c2ae8
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Wizard/Setup.pm
View file

@ -199,20 +199,24 @@ sub www_adminAccountSave {
my $timezone = $form->timeZone("timeZone"); my $timezone = $form->timeZone("timeZone");
my $language = $form->selectBox("language"); my $language = $form->selectBox("language");
my $email = $form->email('email');
##update Admin and Visitor users ##update Admin and Visitor users
my $u = WebGUI::User->new( $session, "3" ); my $u = WebGUI::User->new( $session, "3" );
$u->username( $form->process( "username", "text", "Admin" ) ); $u->username( $form->process( "username", "text", "Admin" ) );
$u->get( "email", $form->email("email") ); $u->update( email => $email,
$u->get( "timeZone", $timezone ); timeZone => $timezone,
$u->get( "language", $language ); language => $language,
);
$u->identifier( Digest::MD5::md5_base64( $form->process( "identifier", "password", "123qwe" ) ) ); $u->identifier( Digest::MD5::md5_base64( $form->process( "identifier", "password", "123qwe" ) ) );
# The user is now Admin # The user is now Admin
$session->user({ userId => "3" }); $session->user({ userId => "3" });
$u = WebGUI::User->new( $session, "1" ); $u = WebGUI::User->new( $session, "1" );
$u->get( "timeZone", $timezone ); $u->update(
$u->get( "language", $language ); timeZone => $timezone,
language => $language,
);
##update ProfileField defaults so new users the get the defaults, too ##update ProfileField defaults so new users the get the defaults, too
my $properties; my $properties;