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

- Added WebGUI community statistics question to the site setup wizard.

Browse source
This commit is contained in:
JT Smith 2009-05-15 16:11:32 +00:00
parent d4a884c202
commit 802713092f
4 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -1,5 +1,6 @@
7.7.7
- rfe #10061: Use email as username at registration
- Added WebGUI community statistics question to the site setup wizard.
- Added Ogone payment plugin ( Martin Kamerbeek / Oqapi )
7.7.6

11
lib/WebGUI/Content/Setup.pm
View file

@ -22,6 +22,7 @@ use WebGUI::International;
use WebGUI::Storage;
use WebGUI::VersionTag;
use WebGUI::Utility;
use WebGUI::Operation::Statistics;
=head1 NAME
@ -154,6 +155,16 @@ sub handler {
$session->setting->set('companyName',$form->text("companyName")) if ($form->get("companyName"));
$session->setting->set('companyURL',$form->url("companyURL")) if ($form->get("companyURL"));
$session->setting->set('companyEmail',$form->email("companyEmail")) if ($form->get("companyEmail"));
$legend = $i18n->get('topicName','Activity_SendWebguiStats');
$output .= ' <p>'.$i18n->get('why to send','Activity_SendWebguiStats').'</p>
<p>'.$i18n->get('would you participate','Activity_SendWebguiStats').'</p>
<p><a href="'.$session->url->gateway(undef, "step=sitestarter").'">'.$i18n->get('disable','Activity_SendWebguiStats').'</a> &nbsp; &nbsp; &nbsp;
<a href="'.$session->url->gateway(undef,"step=sitestarter;enableStats=1").'">'.$i18n->get('enable','Activity_SendWebguiStats').'</a></p>
';
}
elsif ($session->form->process("step") eq "sitestarter") {
my $form = $session->form;
WebGUI::Operation::Statistics::www_enableSendWebguiStats($session) if ($form->get("enableStats"));
$legend = $i18n->get('site starter title');
$output .= ' <p>'.$i18n->get('site starter body').'</p>
<p><a href="'.$session->url->gateway(undef, "step=7").'">'.$i18n->get('no thanks').'</a> &nbsp; &nbsp; &nbsp;

2
lib/WebGUI/Operation/Statistics.pm
View file

@ -91,6 +91,7 @@ Deletes the workflow schedule that sends WebGUI statistics to webgui.org.
sub www_disableSendWebguiStats {
my $session = shift;
return $session->privilege->adminOnly() unless canView($session);
my $task = WebGUI::Workflow::Cron->new($session, 'send_webgui_statistics');
$task->delete;
return www_viewStatistics($session);
@ -107,6 +108,7 @@ Creates the workflow schedule that sends WebGUI statistics to webgui.org.
sub www_enableSendWebguiStats {
my $session = shift;
return $session->privilege->adminOnly() unless canView($session);
# we set the current hour, minute, and day of week to send in the stats so we don't DOS webgui.org
# by having everybody sending it at the same time
my $dt = WebGUI::DateTime->new($session, time());

6
lib/WebGUI/i18n/English/Activity_SendWebguiStats.pm
View file

@ -10,6 +10,12 @@ our $I18N = {
context => q|A description of the stats program, what we're sending, and why it's important.|
},
'would you participate' => {
message => q|Would you like to enable or disable participation in the WebGUI community statistics program?|,
lastUpdated => 0,
context => q|A call to action for the statistics program.|
},
'topicName' => {
message => q|Send WebGUI Statistics|,
lastUpdated => 0,