307 lines
11 KiB
Perl
307 lines
11 KiB
Perl
package WebGUI::Asset::Wobject::Dashboard;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use Tie::IxHash;
|
|
use WebGUI::International;
|
|
use WebGUI::Utility;
|
|
use WebGUI::Session;
|
|
use WebGUI::Grouping;
|
|
use WebGUI::Privilege;
|
|
use WebGUI::ProfileField;
|
|
use WebGUI::ErrorHandler;
|
|
use Time::HiRes;
|
|
use WebGUI::Style;
|
|
use WebGUI::Asset::Wobject;
|
|
|
|
our @ISA = qw(WebGUI::Asset::Wobject);
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub canManage {
|
|
my $self = shift;
|
|
return 0 if $self->session->user->profileField("userId") == 1;
|
|
return $self->session->user->isInGroup($self->get("adminsGroupId"));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub canPersonalize {
|
|
my $self = shift;
|
|
return 0 if $self->session->user->profileField("userId") == 1;
|
|
return $self->session->user->isInGroup($self->get("usersGroupId"));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub definition {
|
|
my $class = shift;
|
|
return $class->SUPER::definition($definition);
|
|
my $definition = shift;
|
|
my %properties;
|
|
tie %properties, 'Tie::IxHash';
|
|
%properties = (
|
|
templateId =>{
|
|
fieldType=>"template",
|
|
defaultValue=>'DashboardViewTmpl00001',
|
|
namespace=>"Dashboard"
|
|
},
|
|
adminsGroupId =>{
|
|
fieldType=>"group",
|
|
defaultValue=>'4'
|
|
},
|
|
usersGroupId =>{
|
|
fieldType=>"group",
|
|
defaultValue=>'2'
|
|
},
|
|
isInitialized =>{
|
|
fieldType=>"yesNo",
|
|
defaultValue=>0,
|
|
noFormPost=>1,
|
|
},
|
|
assetsToHide => {
|
|
defaultValue=>undef,
|
|
fieldType=>"checkList"
|
|
},
|
|
|
|
);
|
|
my $i18n = WebGUI::International->new($session,"Asset_Dashboard");
|
|
push(@{$definition}, {
|
|
assetName=>$i18n->get('assetName'),
|
|
icon=>'dashboard.gif',
|
|
tableName=>'Dashboard',
|
|
className=>'WebGUI::Asset::Wobject::Dashboard',
|
|
properties=>\%properties
|
|
});
|
|
return $class->SUPER::definition($session, $definition);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getContentPositions {
|
|
my $self = shift;
|
|
my $dummy = $self->initialize unless $self->get("isInitialized");
|
|
my $u = WebGUI::User->new($self->discernUserId);
|
|
return $u->profileField($self->getId.'contentPositions');
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub discernUserId {
|
|
my $self = shift;
|
|
return ($self->canManage && WebGUI::Session::isAdminOn()) ? '1' : $self->session->user->profileField("userId");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getEditForm {
|
|
my $self = shift;
|
|
my $tabform = $self->SUPER::getEditForm;
|
|
my $i18n = WebGUI::International->new($self->session, "Asset_Dashboard");
|
|
$tabform->getTab("display")->template(
|
|
-name=>"templateId",
|
|
-value=>$self->getValue('templateId'),
|
|
-namespace=>"Dashboard",
|
|
-label=>$i18n->get('dashboard template field label'),
|
|
-hoverHelp=>$i18n->get('dashboard template description'),
|
|
);
|
|
$tabform->getTab("security")->group(
|
|
-name=>"adminsGroupId",
|
|
-label=>$i18n->get('dashboard adminsGroupId field label'),
|
|
-hoverHelp=>$i18n->get('dashboard adminsGroupId description'),
|
|
-value=>[$self->getValue("adminsGroupId")]
|
|
);
|
|
$tabform->getTab("security")->group(
|
|
-name=>"usersGroupId",
|
|
-label=>$i18n->get('dashboard usersGroupId field label'),
|
|
-hoverHelp=>$i18n->get('dashboard usersGroupId description'),
|
|
-value=>[$self->getValue("usersGroupId")]
|
|
);
|
|
if ($self->session->form->process("func") ne "add") {
|
|
my @assetsToHide = split("\n",$self->getValue("assetsToHide"));
|
|
my $children = $self->getLineage(["children"],{"returnObjects"=>1, excludeClasses=>["WebGUI::Asset::Wobject::Layout"]});
|
|
my %childIds;
|
|
foreach my $child (@{$children}) {
|
|
$childIds{$child->getId} = $child->getTitle.' ['.ref($child).']';
|
|
}
|
|
$tabform->getTab("display")->checkList(
|
|
-name=>"assetsToHide",
|
|
-value=>\@assetsToHide,
|
|
-options=>\%childIds,
|
|
-label=>$i18n->get('assets to hide', 'Asset_Layout'),
|
|
-hoverHelp=>$i18n->get('assets to hide description', 'Asset_Layout'),
|
|
-vertical=>1,
|
|
-uiLevel=>9
|
|
);
|
|
}
|
|
return $tabform;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub initialize {
|
|
my $self = shift;
|
|
my $userPrefField = WebGUI::ProfileField->create($self->getId.'contentPositions',{
|
|
label=>'\'Dashboard User Preference - Content Positions\'',
|
|
visible=>0,
|
|
protected=>1,
|
|
editable=>0,
|
|
required=>0,
|
|
fieldType=>'text'
|
|
});
|
|
$self->update({isInitialized=>1});
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub isManaging {
|
|
my $self = shift;
|
|
return 1 if ($self->canManage && WebGUI::Session::isAdminOn());
|
|
return 0;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub processPropertiesFromFormPost {
|
|
my $self = shift;
|
|
$self->SUPER::processPropertiesFromFormPost;
|
|
if ($self->session->form->process("assetId") eq "new" && $self->session->form->process("class") eq 'WebGUI::Asset::Wobject::Dashboard') {
|
|
$self->initialize;
|
|
if (ref $self->getParent eq 'WebGUI::Asset::Wobject::Layout') {
|
|
$self->getParent->update({assetsToHide=>$self->getParent->get("assetsToHide")."\n".$self->getId});
|
|
}
|
|
$self->update({styleTemplateId=>'PBtmplBlankStyle000001'});
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub view {
|
|
my $self = shift;
|
|
my %vars = $self->get();
|
|
my $templateId = $self->get("templateId");
|
|
my $children = $self->getLineage( ["children"], { returnObjects=>1, excludeClasses=>["WebGUI::Asset::Wobject::Layout","WebGUI::Asset::Wobject::Dashboard"] });
|
|
my %vars;
|
|
# I'm sure there's a more efficient way to do this. We'll figure it out someday.
|
|
my @positions = split(/\./,$self->getContentPositions);
|
|
my @hidden = split("\n",$self->get("assetsToHide"));
|
|
foreach my $child (@{$children}) {
|
|
push(@hidden,$child->get('shortcutToAssetId')) if ref $child eq 'WebGUI::Asset::Shortcut';
|
|
#the following loop will initially place just-dashletted assets.
|
|
for (my $i = 0; $i < scalar(@positions); $i++) {
|
|
next unless isIn($child->get('shortcutToAssetId'),@hidden);
|
|
my $newChildId = $child->getId;
|
|
my $oldChildId = $child->get('shortcutToAssetId');
|
|
$positions[$i] =~ s/${oldChildId}/${newChildId}/g;
|
|
}
|
|
}
|
|
my $i = 1;
|
|
my $templateAsset = WebGUI::Asset->newByDynamicClass($templateId) || WebGUI::Asset->getImportNode;
|
|
my $template = $templateAsset->get("template");
|
|
my $numPositions = 1;
|
|
foreach my $j (2..15) {
|
|
$numPositions = $j if $template =~ m/position${j}\_loop/;
|
|
}
|
|
|
|
my @found;
|
|
my $newStuff;
|
|
my $showPerformance = $self->session->errorHandler->canShowPerformanceIndicators();
|
|
foreach my $position (@positions) {
|
|
my @assets = split(",",$position);
|
|
foreach my $asset (@assets) {
|
|
foreach my $child (@{$children}) {
|
|
if ($asset eq $child->getId) {
|
|
unless (isIn($asset,@hidden) || !($child->canView)) {
|
|
$self->session->style->setRawHeadTags($child->getExtraHeadTags);
|
|
$child->{_properties}{title} = $child->getTitle;
|
|
$child->{_properties}{title} = $child->getShortcut->getTitle if (ref $child eq 'WebGUI::Asset::Shortcut');
|
|
if ($i == 1 || $i > $numPositions) {
|
|
push(@{$vars{"position1_loop"}},{
|
|
id=>$child->getId,
|
|
content=>'', #so things in the New Content bar don't display.
|
|
dashletTitle=>$child->{_properties}{title},
|
|
shortcutUrl=>$child->getUrl,
|
|
canPersonalize=>$self->canPersonalize,
|
|
showReloadIcon=>$child->{_properties}{showReloadIcon},
|
|
canEditUserPrefs=>(($self->session->user->profileField("userId") ne '1') && (ref $child eq 'WebGUI::Asset::Shortcut') && (scalar($child->getPrefFieldsToShow) > 0))
|
|
});
|
|
$newStuff .= 'available_dashlets["'.$child->getId.'"]=\''.$child->getUrl.'\';';
|
|
|
|
} else {
|
|
push(@{$vars{"position".$i."_loop"}},{
|
|
id=>$child->getId,
|
|
content=>$child->view,
|
|
dashletTitle=>$child->{_properties}{title},
|
|
shortcutUrl=>$child->getUrl,
|
|
canPersonalize=>$self->canPersonalize,
|
|
showReloadIcon=>$child->{_properties}{showReloadIcon},
|
|
canEditUserPrefs=>(($self->session->user->profileField("userId") ne '1') && (ref $child eq 'WebGUI::Asset::Shortcut') && (scalar($child->getPrefFieldsToShow) > 0))
|
|
});
|
|
$newStuff .= 'available_dashlets["'.$child->getId.'"]=\''.$child->getUrl.'\';';
|
|
}
|
|
}
|
|
push(@found, $child->getId);
|
|
}
|
|
}
|
|
}
|
|
$i++;
|
|
}
|
|
# deal with unplaced children
|
|
foreach my $child (@{$children}) {
|
|
unless (isIn($child->getId, @found)||isIn($child->getId,@hidden)) {
|
|
if ($child->canView) {
|
|
$child->{_properties}{title} = $child->getShortcut->get("title") if (ref $child eq 'WebGUI::Asset::Shortcut');
|
|
push(@{$vars{"position1_loop"}},{
|
|
id=>$child->getId,
|
|
content=>'',
|
|
dashletTitle=>$child->getTitle,
|
|
shortcutUrl=>$child->getUrl,
|
|
showReloadIcon=>$child->{_properties}{showReloadIcon},
|
|
canPersonalize=>$self->canPersonalize,
|
|
canEditUserPrefs=>(($self->session->user->profileField("userId") ne '1') && (ref $child eq 'WebGUI::Asset::Shortcut') && (scalar($child->getPrefFieldsToShow) > 0))
|
|
});
|
|
$newStuff .= 'available_dashlets["'.$child->getId.'"]=\''.$child->getUrl.'\';';
|
|
}
|
|
}
|
|
}
|
|
$vars{showAdmin} = ($self->session->var->get("adminOn") && $self->canEdit);
|
|
$vars{"dragger.init"} = '
|
|
<script type="text/javascript">
|
|
dragable_init("'.$self->getUrl.'");
|
|
var available_dashlets= new Array();
|
|
'.$newStuff.'
|
|
</script>
|
|
';
|
|
return $self->processTemplate(\%vars, $templateId);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_setContentPositions {
|
|
my $self = shift;
|
|
return 'Visitors cannot save settings' if($self->session->user->profileField("userId") eq '1');
|
|
return $self->session->privilege->insufficient() unless ($self->canPersonalize);
|
|
return 'empty' unless $self->get("isInitialized");
|
|
my $dummy = $self->initialize unless $self->get("isInitialized");
|
|
my $u = WebGUI::User->new($self->discernUserId);
|
|
my $success = $u->profileField($self->getId.'contentPositions',$self->session->form->process("map")) eq $self->session->form->process("map");
|
|
return "Map set: ".$self->session->form->process("map") if $success;
|
|
return "Map failed to set.";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_view ( )
|
|
|
|
Returns the view() method of the asset object if the requestor canView.
|
|
|
|
=cut
|
|
|
|
sub www_view {
|
|
my $self = shift;
|
|
return $self->SUPER::www_view(1);
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|