From 68638c2ae80e8e19ccf10ec79b0512a999d2833a Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Fri, 19 Nov 2010 08:52:46 -0800 Subject: [PATCH] Fix incorrect translation of $user->profileField to $user->get. ProfileField was a mutator, not just an accessor. --- lib/WebGUI/Wizard/Setup.pm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lib/WebGUI/Wizard/Setup.pm b/lib/WebGUI/Wizard/Setup.pm index f937c9ea9..feeb4900c 100644 --- a/lib/WebGUI/Wizard/Setup.pm +++ b/lib/WebGUI/Wizard/Setup.pm @@ -199,20 +199,24 @@ sub www_adminAccountSave { my $timezone = $form->timeZone("timeZone"); my $language = $form->selectBox("language"); + my $email = $form->email('email'); ##update Admin and Visitor users my $u = WebGUI::User->new( $session, "3" ); $u->username( $form->process( "username", "text", "Admin" ) ); - $u->get( "email", $form->email("email") ); - $u->get( "timeZone", $timezone ); - $u->get( "language", $language ); + $u->update( email => $email, + timeZone => $timezone, + language => $language, + ); $u->identifier( Digest::MD5::md5_base64( $form->process( "identifier", "password", "123qwe" ) ) ); # The user is now Admin $session->user({ userId => "3" }); $u = WebGUI::User->new( $session, "1" ); - $u->get( "timeZone", $timezone ); - $u->get( "language", $language ); + $u->update( + timeZone => $timezone, + language => $language, + ); ##update ProfileField defaults so new users the get the defaults, too my $properties;