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

added a www_viewRSS method to allow backward compatibility for RSS feeds.

Browse source
This commit is contained in:
Frank Dillon 2006-11-07 19:04:43 +00:00
parent dbab2a1a4d
commit 21f334e798
1 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/WebGUI/Asset/RSSCapable.pm
View file

@ -74,6 +74,7 @@ sub definition {
return $class->NEXT::definition($session, $definition);
}
#-------------------------------------------------------------------
sub _rssFromParentValid {
my $self = shift;
my $rssFromParentId = $self->get('rssCapableRssFromParentId');
@ -84,6 +85,7 @@ sub _rssFromParentValid {
&& $rssFromParent->getParent->getId eq $self->getId);
}
#-------------------------------------------------------------------
sub _updateRssFromParentProperties {
my $self = shift;
my $rssFromParent = WebGUI::Asset->newByDynamicClass($self->session,
@ -92,6 +94,7 @@ sub _updateRssFromParentProperties {
menuTitle => $self->get('menuTitle') });
}
#-------------------------------------------------------------------
sub _purgeExtraRssFromParentAssets {
my $self = shift;
my $rssFromParentId = $self->get('rssCapableRssFromParentId');
@ -104,6 +107,7 @@ sub _purgeExtraRssFromParentAssets {
}
}
#-------------------------------------------------------------------
sub _ensureRssFromParentPresent {
my $self = shift;
if (!$self->_rssFromParentValid) {
@ -120,6 +124,7 @@ sub _ensureRssFromParentPresent {
$self->_purgeExtraRssFromParentAssets;
}
#-------------------------------------------------------------------
sub _ensureRssFromParentAbsent {
my $self = shift;
# Invalidate it, and then it'll get purged along with any others.
@ -127,6 +132,7 @@ sub _ensureRssFromParentAbsent {
$self->_purgeExtraRssFromParentAssets;
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;
my $error = $self->NEXT::processPropertiesFromFormPost(@_);
@ -171,4 +177,26 @@ This is the primary method that RSSCapable assets should override.
sub getRssItems { () }
#-------------------------------------------------------------------
=head2 www_viewRSS ( )
Default www method for methods that return RSS. This will redirect to the getRssUrl unless overridden.
=cut
sub www_viewRSS {
my $self = shift;
my $session = $self->session;
my $rssUrl = $self->getRssUrl;
if($rssUrl) {
$session->http->setRedirect($self->getRssUrl);
}
return "";
}
1;