^c;
-
@@ -314,262 +341,277 @@ a:visited { color: '.$form->get("visitedLinkColor").'; }
';
- my $style = addAsset($importNode, {
- className => "WebGUI::Asset::Template",
- title => $i18n->get("My Style"),
- isHidden => 1,
- namespace => "style",
- template => $styleTemplate
- });
- $session->setting->set("userFunctionStyleId",$style->getId);
+ my $style = addAsset(
+ $importNode, {
+ className => "WebGUI::Asset::Template",
+ title => $i18n->get("My Style"),
+ isHidden => 1,
+ namespace => "style",
+ template => $styleTemplate
+ }
+ );
+ $session->setting->set( "userFunctionStyleId", $style->getId );
# collect new page info
- my $f = WebGUI::HTMLForm->new($session,action=>$session->url->gateway());
- $f->hidden(name=>"step", value=>"7");
- $f->hidden(name=>"styleTemplateId", value=>$style->getId);
- $f->yesNo(name=>"contactUs",label=>$i18n->get('Contact Us'));
- $f->yesNo(name=>"calendar",label=>$i18n->get("assetName", 'Asset_Calendar'));
- $f->yesNo(name=>"wiki",label=>$i18n->get('assetName', 'Asset_WikiMaster'));
- $f->yesNo(name=>"search",label=>$i18n->get("assetName", 'Asset_Search'));
- $f->yesNo(name=>"aboutUs",label=>$i18n->get("About Us"));
- $f->HTMLArea(name=>"aboutUsContent", richEditId=>"PBrichedit000000000002",
- value=>$i18n->get("Put your about us content here."));
- if (exists $session->config->get('assets')->{"WebGUI::Asset::Wobject::Collaboration"}) {
- $f->yesNo(name=>"news",label=>$i18n->get(357));
- $f->yesNo(name=>"forums",label=>$i18n->get("Forums"));
- $f->textarea(name=>"forumNames",subtext=>$i18n->get("One forum name per line"),
- value=>$i18n->get("Support")."\n".$i18n->get("General Discussion"));
+ my $f = WebGUI::HTMLForm->new( $session, action => $session->url->gateway() );
+ $f->hidden( name => "step", value => "7" );
+ $f->hidden( name => "styleTemplateId", value => $style->getId );
+ $f->yesNo( name => "contactUs", label => $i18n->get('Contact Us') );
+ $f->yesNo( name => "calendar", label => $i18n->get( "assetName", 'Asset_Calendar' ) );
+ $f->yesNo( name => "wiki", label => $i18n->get( 'assetName', 'Asset_WikiMaster' ) );
+ $f->yesNo( name => "search", label => $i18n->get( "assetName", 'Asset_Search' ) );
+ $f->yesNo( name => "aboutUs", label => $i18n->get("About Us") );
+ $f->HTMLArea(
+ name => "aboutUsContent",
+ richEditId => "PBrichedit000000000002",
+ value => $i18n->get("Put your about us content here.")
+ );
+
+ if ( exists $session->config->get('assets')->{"WebGUI::Asset::Wobject::Collaboration"} ) {
+ $f->yesNo( name => "news", label => $i18n->get(357) );
+ $f->yesNo( name => "forums", label => $i18n->get("Forums") );
+ $f->textarea(
+ name => "forumNames",
+ subtext => $i18n->get("One forum name per line"),
+ value => $i18n->get("Support") . "\n" . $i18n->get("General Discussion")
+ );
}
$f->submit;
$legend = $i18n->get("Initial Pages");
$output .= $f->print;
- }
- elsif ($session->form->process("step") eq "7") {
+ } ## end elsif ( $session->form->process...)
+ elsif ( $session->form->process("step") eq "7" ) {
my $home = WebGUI::Asset->getDefault($session);
my $form = $session->form;
# update default site style
- foreach my $asset (@{$home->getLineage(["self","descendants"], {returnObjects=>1})}) {
- if (defined $asset) {
- $asset->update({styleTemplateId=>$form->get("styleTemplateId")});
+ foreach my $asset ( @{ $home->getLineage( [ "self", "descendants" ], { returnObjects => 1 } ) } ) {
+ if ( defined $asset ) {
+ $asset->update( { styleTemplateId => $form->get("styleTemplateId") } );
}
}
# add new pages
- if ($form->get("aboutUs")) {
- my $page = addPage($home, $i18n->get("About Us"));
- addAsset($page, {
- title => $i18n->get("About Us"),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::Article",
- description => $form->get("aboutUsContent"),
- });
+ if ( $form->get("aboutUs") ) {
+ my $page = addPage( $home, $i18n->get("About Us") );
+ addAsset(
+ $page, {
+ title => $i18n->get("About Us"),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::Article",
+ description => $form->get("aboutUsContent"),
+ }
+ );
}
# add forums
- if ($form->get("forums")) {
- my $page = addPage($home, $i18n->get("Forums"));
- my $board = addAsset($page, {
- title => $i18n->get("Forums"),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::MessageBoard",
- description => $i18n->get("Discuss your ideas and get help from our community."),
- });
+ if ( $form->get("forums") ) {
+ my $page = addPage( $home, $i18n->get("Forums") );
+ my $board = addAsset(
+ $page, {
+ title => $i18n->get("Forums"),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::MessageBoard",
+ description => $i18n->get("Discuss your ideas and get help from our community."),
+ }
+ );
my $forumNames = $form->get("forumNames");
$forumNames =~ s/\r//g;
- foreach my $forumName (split "\n", $forumNames) {
+ foreach my $forumName ( split "\n", $forumNames ) {
next if $forumName eq "";
- addAsset($board, {
- title => $forumName,
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::Collaboration"
- });
+ addAsset(
+ $board, {
+ title => $forumName,
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::Collaboration"
+ }
+ );
}
- }
+ } ## end if ( $form->get("forums"...))
- # add news
- if ($form->get("news")) {
- my $page = addPage($home, $i18n->get(357));
- addAsset($page, {
- title => $i18n->get(357),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::Collaboration",
- collaborationTemplateId => "PBtmpl0000000000000112",
- allowReplies => 0,
- attachmentsPerPost => 5,
- postFormTemplateId => "PBtmpl0000000000000068",
- threadTemplateId => "PBtmpl0000000000000067",
- description => $i18n->get("All the news you need to know."),
- });
- }
+ # add news
+ if ( $form->get("news") ) {
+ my $page = addPage( $home, $i18n->get(357) );
+ addAsset(
+ $page, {
+ title => $i18n->get(357),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::Collaboration",
+ collaborationTemplateId => "PBtmpl0000000000000112",
+ allowReplies => 0,
+ attachmentsPerPost => 5,
+ postFormTemplateId => "PBtmpl0000000000000068",
+ threadTemplateId => "PBtmpl0000000000000067",
+ description => $i18n->get("All the news you need to know."),
+ }
+ );
+ } ## end if ( $form->get("news"...))
# add wiki
- if ($form->get("wiki")) {
- my $page = addPage($home, $i18n->get("assetName", 'Asset_WikiMaster'));
- addAsset($page, {
- title => $i18n->get("assetName", 'Asset_WikiMaster'),
- isHidden => 1,
- allowAttachments => 5,
- className => "WebGUI::Asset::Wobject::WikiMaster",
- description => $i18n->get("Welcome to our wiki. Here you can help us keep information up to date."),
- });
+ if ( $form->get("wiki") ) {
+ my $page = addPage( $home, $i18n->get( "assetName", 'Asset_WikiMaster' ) );
+ addAsset(
+ $page, {
+ title => $i18n->get( "assetName", 'Asset_WikiMaster' ),
+ isHidden => 1,
+ allowAttachments => 5,
+ className => "WebGUI::Asset::Wobject::WikiMaster",
+ description => $i18n->get("Welcome to our wiki. Here you can help us keep information up to date."),
+ }
+ );
}
# add calendar
- if ($form->get("calendar")) {
- my $page = addPage($home, $i18n->get('assetName', "Asset_Calendar"));
- addAsset($page, {
- title => $i18n->get('assetName', "Asset_Calendar"),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::Calendar",
- description => $i18n->get("Check out what is going on."),
- });
+ if ( $form->get("calendar") ) {
+ my $page = addPage( $home, $i18n->get( 'assetName', "Asset_Calendar" ) );
+ addAsset(
+ $page, {
+ title => $i18n->get( 'assetName', "Asset_Calendar" ),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::Calendar",
+ description => $i18n->get("Check out what is going on."),
+ }
+ );
}
# add contact us
- if ($form->get("contactUs")) {
- my $page = addPage($home, $i18n->get("Contact Us"));
- my $i18n2 = WebGUI::International->new($session, "Asset_DataForm");
- my @fieldConfig = (
- {
- name=>"from",
- label=>$i18n2->get("Your Email Address", 'WebGUI'),
- status=>"required",
- isMailField=>1,
- width=>0,
- type=>"email",
- },
- {
- name=>"to",
- label=>$i18n2->get(11),
- status=>"hidden",
- isMailField=>1,
- width=>0,
- type=>"email",
- defaultValue=>$session->setting->get("companyEmail"),
- },
- {
- name=>"cc",
- label=>$i18n2->get(12),
- status=>"hidden",
- isMailField=>1,
- width=>0,
- type=>"email",
- },
- {
- name=>"bcc",
- label=>$i18n2->get(13),
- status=>"hidden",
- isMailField=>1,
- width=>0,
- type=>"email",
- },
- {
- name=>"subject",
- label=>$i18n2->get(14),
- status=>"hidden",
- isMailField=>1,
- width=>0,
- type=>"text",
- defaultValue=>$i18n->get(2),
- },
- {
- name => "comments",
- label => $i18n->get("comments", 'VersionTag'),
- status => "required",
- type => "textarea",
- subtext => $i18n->get("Tell us how we can assist you."),
+ if ( $form->get("contactUs") ) {
+ my $page = addPage( $home, $i18n->get("Contact Us") );
+ my $i18n2 = WebGUI::International->new( $session, "Asset_DataForm" );
+ my @fieldConfig = ( {
+ name => "from",
+ label => $i18n2->get( "Your Email Address", 'WebGUI' ),
+ status => "required",
+ isMailField => 1,
+ width => 0,
+ type => "email",
+ }, {name => "to",
+ label => $i18n2->get(11),
+ status => "hidden",
+ isMailField => 1,
+ width => 0,
+ type => "email",
+ defaultValue => $session->setting->get("companyEmail"),
+ }, {name => "cc",
+ label => $i18n2->get(12),
+ status => "hidden",
+ isMailField => 1,
+ width => 0,
+ type => "email",
+ }, {name => "bcc",
+ label => $i18n2->get(13),
+ status => "hidden",
+ isMailField => 1,
+ width => 0,
+ type => "email",
+ }, {name => "subject",
+ label => $i18n2->get(14),
+ status => "hidden",
+ isMailField => 1,
+ width => 0,
+ type => "text",
+ defaultValue => $i18n->get(2),
+ }, {name => "comments",
+ label => $i18n->get( "comments", 'VersionTag' ),
+ status => "required",
+ type => "textarea",
+ subtext => $i18n->get("Tell us how we can assist you."),
},
);
- my $dataForm = addAsset($page, {
- title => $i18n->get("Contact Us"),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::DataForm",
- description => $i18n->get("We welcome your feedback."),
- acknowledgement => $i18n->get("Thanks for for your interest in ^c;. We will review your message shortly."),
- mailData => 1,
- fieldConfiguration => JSON::to_json(\@fieldConfig),
- });
- }
+ my $dataForm = addAsset(
+ $page, {
+ title => $i18n->get("Contact Us"),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::DataForm",
+ description => $i18n->get("We welcome your feedback."),
+ acknowledgement =>
+ $i18n->get("Thanks for for your interest in ^c;. We will review your message shortly."),
+ mailData => 1,
+ fieldConfiguration => JSON::to_json( \@fieldConfig ),
+ }
+ );
+ } ## end if ( $form->get("contactUs"...))
# add search
- if ($form->get("search")) {
- my $page = addPage($home, $i18n->get('assetName',"Asset_Search"));
- addAsset($page, {
- title => $i18n->get('assetName',"Asset_Search"),
- isHidden => 1,
- className => "WebGUI::Asset::Wobject::Search",
- description => $i18n->get("Cannot find what you are looking for? Try our search."),
- searchRoot => $home->getId,
- });
+ if ( $form->get("search") ) {
+ my $page = addPage( $home, $i18n->get( 'assetName', "Asset_Search" ) );
+ addAsset(
+ $page, {
+ title => $i18n->get( 'assetName', "Asset_Search" ),
+ isHidden => 1,
+ className => "WebGUI::Asset::Wobject::Search",
+ description => $i18n->get("Cannot find what you are looking for? Try our search."),
+ searchRoot => $home->getId,
+ }
+ );
}
# commit the working tag
my $working = WebGUI::VersionTag->getWorking($session);
- $working->set({name=>"Initial Site Setup"});
+ $working->set( { name => "Initial Site Setup" } );
$working->commit;
# remove init state
- $session->setting->remove('specialState');
- $session->http->setRedirect($session->url->gateway("?setup=complete"));
- return undef;
- }
+ $session->setting->remove('specialState');
+ $session->http->setRedirect( $session->url->gateway("?setup=complete") );
+ return undef;
+ } ## end elsif ( $session->form->process...)
else {
$legend = $i18n->get('admin account');
- my $u = WebGUI::User->new($session,'3');
- my $f = WebGUI::HTMLForm->new($session,action=>$session->url->gateway());
- $f->hidden( -name=>"step", -value=>"2");
- $f->text(
- -name=>"username",
- -value=>$u->username,
- -label=>$i18n->get(50),
- -hoverHelp=>$i18n->get('50 setup description'),
- );
- $f->text(
- -name=>"identifier",
- -value=>"123qwe",
- -label=>$i18n->get(51),
- -hoverHelp=>$i18n->get('51 description'),
- -subtext=>''.$i18n->get('WebGUI Initial Configuration').' :: '.$legend.'
+ ' . $i18n->get('WebGUI Initial Configuration') . ' :: ' . $legend . '
'. $session->style->generateAdditionalHeadTags .'
+' . $session->style->generateAdditionalHeadTags . '
-
- .')
+
+ 
+ . ')
';
- $session->http->setMimeType("text/html");
+ $session->http->setMimeType("text/html");
return $page;
-}
+} ## end sub handler
1;
('.$i18n->get("password clear text").')
'
- );
- $f->email(
- -name=>"email",
- -value=>$u->profileField("email"),
- -label=>$i18n->get(56),
- -hoverHelp=>$i18n->get('56 description'),
- );
- $f->timeZone(
- -name => "timeZone",
- -value => $u->profileField("timeZone"),
- -label => $i18n->get('timezone','DateTime'),
- -hoverHelp => $i18n->get('timezone help'),
- );
- $f->selectBox(
- -name => "language",
- -value => $u->profileField("language"),
- -label => $i18n->get('304'),
- -hoverHelp => $i18n->get('language help'),
+ my $u = WebGUI::User->new( $session, '3' );
+ my $f = WebGUI::HTMLForm->new( $session, action => $session->url->gateway() );
+ $f->hidden( -name => "step", -value => "2" );
+ $f->text(
+ -name => "username",
+ -value => $u->username,
+ -label => $i18n->get(50),
+ -hoverHelp => $i18n->get('50 setup description'),
+ );
+ $f->text(
+ -name => "identifier",
+ -value => "123qwe",
+ -label => $i18n->get(51),
+ -hoverHelp => $i18n->get('51 description'),
+ -subtext => '(' . $i18n->get("password clear text") . ')
'
+ );
+ $f->email(
+ -name => "email",
+ -value => $u->profileField("email"),
+ -label => $i18n->get(56),
+ -hoverHelp => $i18n->get('56 description'),
+ );
+ $f->timeZone(
+ -name => "timeZone",
+ -value => $u->profileField("timeZone"),
+ -label => $i18n->get( 'timezone', 'DateTime' ),
+ -hoverHelp => $i18n->get('timezone help'),
+ );
+ $f->selectBox(
+ -name => "language",
+ -value => $u->profileField("language"),
+ -label => $i18n->get('304'),
+ -hoverHelp => $i18n->get('language help'),
-options => $i18n->getLanguages(),
- );
- $f->submit;
- $output .= $f->print;
- }
- my $page = 'submit;
+ $output .= $f->print;
+ } ## end else [ if ( $form->process("step"...))]
+ my $page = '
- '.$legend.'
'.$output.'
+ ' . $legend . '
' . $output . '
';
- $session->http->setMimeType("text/html");
+ $session->http->setMimeType("text/html");
return $page;
-}
+} ## end sub handler
1;