Exception handling.

This commit is contained in:
Colin Kuskie 2010-05-09 15:35:07 -07:00
parent 4ecc8dce2a
commit a2feddc3b5

View file

@ -44,8 +44,10 @@ This macro takes a templateId to show the links
sub process {
my $session = shift;
my $templateId = shift || "_aE16Rr1-bXBf8SIaLZjCg";
my $template = WebGUI::Asset::Template->newById($session, $templateId);
my $template = eval { WebGUI::Asset::Template->newById($session, $templateId); };
if (Exception::Class->caught()) {
return "Could not instanciate template with id [$templateId]" unless $template;
}
my $i18n = WebGUI::International->new($session);
my $languages = $i18n->getLanguages();
my @lang_loop = ();