Dashboard now shows the default view to anyone who hasn't personalized it

This commit is contained in:
Doug Bell 2007-09-07 21:24:47 +00:00
parent a9d637199c
commit 2b2fa12d0e
2 changed files with 19 additions and 1 deletions

View file

@ -29,6 +29,7 @@
- add: DataForm template variable for the group to view entries
- fix: EMS Badge Reporting overlaps with other EMS on the system
- fix: SQLReport templatable download doesn't run nested queries
- Dashboard now shows default view if user hasn't configured their own view
7.4.5
- fix: Apostrophy incorrectly escaped as double quote in some places

View file

@ -100,7 +100,24 @@ sub getContentPositions {
my $self = shift;
my $dummy = $self->initialize unless $self->get("isInitialized");
my $u = WebGUI::User->new($self->session, $self->discernUserId);
return $u->profileField($self->getId.'contentPositions');
return $u->profileField($self->getId.'contentPositions')
|| $self->getContentPositionsDefault;
}
#-------------------------------------------------------------------
=head2 getContentPositionsDefault ( )
Returns the default content positions for this Dashboard.
=cut
sub getContentPositionsDefault {
my $self = shift;
my $dummy = $self->initialize unless $self->get("isInitialized");
# The default positions are saved under the "Visitor" user
my $u = WebGUI::User->new($self->session, 1);
return $u->profileField($self->getId.'contentPositions');
}
#-------------------------------------------------------------------