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

fixed Syndicated Content parse bug

Browse source
This commit is contained in:
Len Kranendonk 2003-05-20 11:43:46 +00:00
parent d3478c8282
commit e66c2794c0
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Wobject/SyndicatedContent.pm
View file

@ -83,11 +83,13 @@ sub www_view {
WebGUI::ErrorHandler::warn($_[0]->get("rssUrl")." ".$@);
}
my %var;
$var{"channel.title"} = $rss{title} || $rss{channel}{title};
$var{"channel.link"} = $rss{link} || $rss{channel}{link};
$var{"channel.description"} = $rss{description} || $rss{channel}{description};
$var{"channel.title"} = $rss{title} || $rss{channel}{title} || $rss{RDF}{channel}{title};
$var{"channel.link"} = $rss{link} || $rss{channel}{link} || $rss{RDF}{channel}{link};
$var{"channel.description"} = $rss{description} || $rss{channel}{description} || $rss{RDF}{channel}{description};
my @items;
foreach my $item (@{$rss{item}}) {
my $rssItem = \$rss{item};
$rssItem = \$rss{RDF}{item} unless ($rss{item});
foreach my $item (@{$$rssItem}) {
push (@items,{
link=>$item->{link},
title=>$item->{title},