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

Forward port XML encoding for template based RSS feeds in the Gallery.

Browse source
This commit is contained in:
Colin Kuskie 2009-08-05 22:16:38 +00:00
parent 55e0feb687
commit 3b577599f5
6 changed files with 29 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18,6 +18,7 @@ use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility;
use XML::Simple;
use WebGUI::HTML;
=head1 NAME
@ -1212,7 +1213,12 @@ sub www_listAlbumsRss {
for my $key ( qw( url ) ) {
$assetVar->{ $key } = $self->session->url->getSiteURL . $assetVar->{ $key };
}
# Encode XML entities
for my $key ( qw( title description synopsis gallery_title gallery_menuTitle ) ) {
$assetVar->{ $key } = WebGUI::HTML::filter($assetVar->{$key}, 'xml');
}
# Additional vars for RSS
$assetVar->{ rssDate }
= $session->datetime->epochToMail( $assetVar->{ creationDate } );

14
lib/WebGUI/Asset/Wobject/GalleryAlbum.pm
View file

@ -20,6 +20,7 @@ use File::Temp qw{ tempdir };
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::HTML;
use Archive::Any;
@ -1069,7 +1070,7 @@ sub www_addFileService {
# my $filePath = $storage->getPath( $storage->getFiles->[0] );
# $self->setFile( $filePath );
# $storage->delete;
$session->log->warn('XX:'. $filename);
#$session->log->warn('XX:'. $filename);
$file->requestAutoCommit;
@ -1413,18 +1414,27 @@ sub www_viewRss {
my $var = $self->getTemplateVars;
$self->appendTemplateVarsFileLoop( $var, $self->getFileIds );
# Fix URLs to be full URLs
for my $key ( qw( url url_viewRss ) ) {
$var->{ $key } = $self->session->url->getSiteURL . $var->{ $key };
}
# Encode XML entities
for my $key ( qw( title description synopsis gallery_title gallery_menuTitle ) ) {
$var->{ $key } = WebGUI::HTML::filter($var->{$key}, 'xml');
}
# Process the file loop to add additional params
for my $file ( @{ $var->{file_loop} } ) {
# Fix URLs to be full URLs
for my $key ( qw( url ) ) {
$file->{ $key } = $self->session->url->getSiteURL . $file->{$key};
}
# Encode XML entities
for my $key ( qw( title description synopsis ) ) {
$file->{ $key } = WebGUI::HTML::filter($file->{$key}, 'xml');
}
$file->{ rssDate }
= $self->session->datetime->epochToMail( $file->{creationDate} );