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

Rework StoryArchive for exceptions and modifiers.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-24 14:54:53 -07:00
parent a10e65f883
commit 56fcb761a1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -287,8 +287,8 @@ sub getFolder {
my $session = $self->session; my $session = $self->session;
my $folderName = $session->datetime->epochToHuman($date, DATE_FORMAT); my $folderName = $session->datetime->epochToHuman($date, DATE_FORMAT);
my $folderUrl = join '/', $self->getUrl, $folderName; my $folderUrl = join '/', $self->getUrl, $folderName;
my $folder = WebGUI::Asset->newByUrl($session, $folderUrl); my $folder = eval { WebGUI::Asset->newByUrl($session, $folderUrl); };
return $folder if $folder; return $folder if !Exception::Class->caught();
##The requested folder doesn't exist. Make it and autocommit it. ##The requested folder doesn't exist. Make it and autocommit it.
##For a fully automatic commit, save the current tag, create a new one ##For a fully automatic commit, save the current tag, create a new one
@ -299,7 +299,7 @@ sub getFolder {
$newVersionTag->setWorking; $newVersionTag->setWorking;
##Call SUPER because my addChild calls getFolder ##Call SUPER because my addChild calls getFolder
$folder = $self->SUPER::addChild({ $folder = $self->addChild({
className => 'WebGUI::Asset::Wobject::Folder', className => 'WebGUI::Asset::Wobject::Folder',
title => $folderName, title => $folderName,
menuTitle => $folderName, menuTitle => $folderName,