Skip to content
Browse files

Make getPrototypeList catch exceptions.

  • Loading branch information...
perlDreamer committed Oct 16, 2011
1 parent e5d4664 commit 71533cbba7937eb87a6a65136a2d239155c8738a
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/WebGUI/
@@ -1604,8 +1604,8 @@ sub getPrototypeList {
my $userUiLevel = $session->user->get('uiLevel');
my @assets;
ID: foreach my $id (@prototypeIds) {
my $asset = WebGUI::Asset->newById($session, $id);
next ID unless defined $asset;
my $asset = eval { WebGUI::Asset->newById($session, $id); };
next ID if Exception::Class->caught();
next ID unless $asset->get('isPrototype');
next ID unless ($asset->get('status') eq 'approved' || $asset->get('tagId') eq $session->scratch->get("versionTag"));
push @assets, $asset;

0 comments on commit 71533cb

Please sign in to comment.
You can’t perform that action at this time.