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

bugfixes

Browse source
This commit is contained in:
JT Smith 2004-12-25 20:57:12 +00:00
parent bc2d6a258e
commit d67b97c18b
2 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset/Wobject.pm
View file

@ -358,14 +358,6 @@ sub purge {
#-------------------------------------------------------------------
sub view {
my $self = shift;
return "No view has been created for this wobject.";
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 www_createShortcut ( ) =head2 www_createShortcut ( )

3
lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
View file

@ -203,7 +203,7 @@ sub _get_rss_data {
if ($] >= 5.008 && $hasEncode) { if ($] >= 5.008 && $hasEncode) {
$xml =~ /<\?xml.*?encoding=['"](\S+)['"]/i; $xml =~ /<\?xml.*?encoding=['"](\S+)['"]/i;
my $xmlEncoding = $1; my $xmlEncoding = $1;
my $encoding = "UTF-8"; my $encoding = "utf8";
if (lc($xmlEncoding) ne lc($encoding)) { if (lc($xmlEncoding) ne lc($encoding)) {
eval { from_to($xml, $xmlEncoding, $encoding) }; eval { from_to($xml, $xmlEncoding, $encoding) };
WebGUI::ErrorHandler::warn($@) if ($@); WebGUI::ErrorHandler::warn($@) if ($@);
@ -361,7 +361,6 @@ sub view {
my $self = shift; my $self = shift;
$self->logView() if ($session{setting}{passiveProfilingEnabled}); $self->logView() if ($session{setting}{passiveProfilingEnabled});
my $maxHeadlines = $self->get("maxHeadlines") || 1000000; my $maxHeadlines = $self->get("maxHeadlines") || 1000000;
my @urls = split(/\s+/,$self->get("rssUrl")); my @urls = split(/\s+/,$self->get("rssUrl"));
if (@urls == 1) { if (@urls == 1) {
return $self->_view_single_feed($maxHeadlines); return $self->_view_single_feed($maxHeadlines);