Story Archive now plays nice with urlExtensions

This commit is contained in:
Paul Driver 2010-10-26 14:23:28 -07:00
parent e67ad18517
commit fa471df450
5 changed files with 51 additions and 9 deletions

View file

@ -367,9 +367,14 @@ Constructs a url for a subfolder with the given name.
sub getFolderUrl {
my ($self, $name) = @_;
my $base = $self->getUrl;
$base =~ s/(.*)\..*/$1/;
return "$base/$name";
my $session = $self->session;
my $base = $self->getUrl;
$base =~ s/(.*)\..*/$1/;
my $url = "$base/$name";
if (my $ext = $session->setting->get('urlExtension')) {
$url .= ".$ext";
}
return $session->url->urlize($url);
}
#-------------------------------------------------------------------