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

More deprecation fixes.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-18 19:41:09 -08:00
parent 8255b6905f
commit e03bb22d56
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -163,19 +163,19 @@ sub www_adminAccount {
); );
$f->email( $f->email(
-name => "email", -name => "email",
-value => $u->profileField("email"), -value => $u->get("email"),
-label => $i18n->get(56), -label => $i18n->get(56),
-hoverHelp => $i18n->get('56 description'), -hoverHelp => $i18n->get('56 description'),
); );
$f->timeZone( $f->timeZone(
-name => "timeZone", -name => "timeZone",
-value => $u->profileField("timeZone"), -value => $u->get("timeZone"),
-label => $i18n->get( 'timezone', 'DateTime' ), -label => $i18n->get( 'timezone', 'DateTime' ),
-hoverHelp => $i18n->get('timezone help'), -hoverHelp => $i18n->get('timezone help'),
); );
$f->selectBox( $f->selectBox(
-name => "language", -name => "language",
-value => $u->profileField("language"), -value => $u->get("language"),
-label => $i18n->get('304'), -label => $i18n->get('304'),
-hoverHelp => $i18n->get('language help'), -hoverHelp => $i18n->get('language help'),
-options => $i18n->getLanguages(), -options => $i18n->getLanguages(),
@ -203,16 +203,16 @@ sub www_adminAccountSave {
##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->profileField( "email", $form->email("email") ); $u->get( "email", $form->email("email") );
$u->profileField( "timeZone", $timezone ); $u->get( "timeZone", $timezone );
$u->profileField( "language", $language ); $u->get( "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->profileField( "timeZone", $timezone ); $u->get( "timeZone", $timezone );
$u->profileField( "language", $language ); $u->get( "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;