From 56fcb761a1d7f15ebe766d56761aabefbbc32cfe Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Wed, 24 Mar 2010 14:54:53 -0700 Subject: [PATCH] Rework StoryArchive for exceptions and modifiers. --- lib/WebGUI/Asset/Wobject/StoryArchive.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm index e40494cfa..ff3332f77 100644 --- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm +++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm @@ -287,8 +287,8 @@ sub getFolder { my $session = $self->session; my $folderName = $session->datetime->epochToHuman($date, DATE_FORMAT); my $folderUrl = join '/', $self->getUrl, $folderName; - my $folder = WebGUI::Asset->newByUrl($session, $folderUrl); - return $folder if $folder; + my $folder = eval { WebGUI::Asset->newByUrl($session, $folderUrl); }; + return $folder if !Exception::Class->caught(); ##The requested folder doesn't exist. Make it and autocommit it. ##For a fully automatic commit, save the current tag, create a new one @@ -299,7 +299,7 @@ sub getFolder { $newVersionTag->setWorking; ##Call SUPER because my addChild calls getFolder - $folder = $self->SUPER::addChild({ + $folder = $self->addChild({ className => 'WebGUI::Asset::Wobject::Folder', title => $folderName, menuTitle => $folderName,