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

fixed #11928: Story Archive breaks if url has extension

Browse source
This commit is contained in:
Paul Driver 2010-10-26 11:01:55 -07:00
parent 6fced77b37
commit 0d46331745
3 changed files with 31 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Asset/Wobject/StoryArchive.pm
View file

@ -322,7 +322,7 @@ sub getFolder {
my ($self, $date) = @_;
my $session = $self->session;
my $folderName = $session->datetime->epochToHuman($date, DATE_FORMAT);
my $folderUrl = join '/', $self->getUrl, $folderName;
my $folderUrl = $self->getFolderUrl($folderName);
my $folder = WebGUI::Asset->newByUrl($session, $folderUrl);
return $folder if $folder;
##The requested folder doesn't exist. Make it and autocommit it.
@ -359,6 +359,21 @@ sub getFolder {
#-------------------------------------------------------------------
=head2 getFolderUrl ( name )
Constructs a url for a subfolder with the given name.
=cut
sub getFolderUrl {
my ($self, $name) = @_;
my $base = $self->getUrl;
$base =~ s/(.*)\..*/$1/;
return "$base/$name";
}
#-------------------------------------------------------------------
=head2 getKeywordFilename ( $keyword )
Returns the name for the file containing stories that match this keyword. Used