diff --git a/lib/WebGUI/Macro/File.pm b/lib/WebGUI/Macro/File.pm index b58c7dc9d..4bb545fa0 100644 --- a/lib/WebGUI/Macro/File.pm +++ b/lib/WebGUI/Macro/File.pm @@ -18,8 +18,14 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { my @param = WebGUI::Macro::getParams($_[0]); - my $collateral = WebGUI::Collateral->find($param[0]); - return ' '.$collateral->get("name").''; + if (my $collateral = WebGUI::Collateral->find($param[0])) { + return ' ' . + $collateral->get("name") . ''; + } else { + return undef; + } } 1; diff --git a/lib/WebGUI/Macro/RandomImage.pm b/lib/WebGUI/Macro/RandomImage.pm index e26ef608a..174f815ce 100644 --- a/lib/WebGUI/Macro/RandomImage.pm +++ b/lib/WebGUI/Macro/RandomImage.pm @@ -28,8 +28,11 @@ sub process { } my @images = WebGUI::SQL->buildArray("select collateralId from collateral where collateralType='image' and collateralFolderId=".$collateralFolderId); - my $collateral = WebGUI::Collateral->new($images[rand($#images+1)]); - return 'get("parameters").' />'; + if (my $collateral = WebGUI::Collateral->new($images[rand($#images+1)])) { + return 'get("parameters").' />'; + } else { + return undef; + } } diff --git a/lib/WebGUI/Macro/RandomSnippet.pm b/lib/WebGUI/Macro/RandomSnippet.pm index a864fc5b2..914b915c0 100644 --- a/lib/WebGUI/Macro/RandomSnippet.pm +++ b/lib/WebGUI/Macro/RandomSnippet.pm @@ -28,8 +28,11 @@ sub process { } my @snippets = WebGUI::SQL->buildArray("select collateralId from collateral where collateralType='snippet' and collateralFolderId=".$collateralFolderId); - my $collateral = WebGUI::Collateral->new($snippets[rand($#snippets+1)]); - return $collateral->get("parameters"); + if (my $collateral = WebGUI::Collateral->new($snippets[rand($#snippets+1)])) { + return $collateral->get("parameters"); + } else { + return undef; + } } diff --git a/lib/WebGUI/Macro/Snippet.pm b/lib/WebGUI/Macro/Snippet.pm index 784e179ae..ce2979860 100644 --- a/lib/WebGUI/Macro/Snippet.pm +++ b/lib/WebGUI/Macro/Snippet.pm @@ -20,8 +20,11 @@ use WebGUI::Session; sub process { my (@param, $temp); @param = WebGUI::Macro::getParams($_[0]); - my $collateral = WebGUI::Collateral->find($param[0]); - return $collateral->get("parameters"); + if (my $collateral = WebGUI::Collateral->find($param[0])) { + return $collateral->get("parameters"); + } else { + return undef; + } } diff --git a/lib/WebGUI/Macro/Thumbnail.pm b/lib/WebGUI/Macro/Thumbnail.pm index 2d3f14b99..27e85b1f8 100644 --- a/lib/WebGUI/Macro/Thumbnail.pm +++ b/lib/WebGUI/Macro/Thumbnail.pm @@ -18,8 +18,11 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { my @param = WebGUI::Macro::getParams($_[0]); - my $collateral = WebGUI::Collateral->find($param[0]); - return $collateral->getThumbnail; + if (my $collateral = WebGUI::Collateral->find($param[0])) { + return $collateral->getThumbnail; + } else { + return undef; + } } diff --git a/lib/WebGUI/Macro/ThumbnailLinker.pm b/lib/WebGUI/Macro/ThumbnailLinker.pm index 147d617e7..cdfc43a46 100644 --- a/lib/WebGUI/Macro/ThumbnailLinker.pm +++ b/lib/WebGUI/Macro/ThumbnailLinker.pm @@ -18,12 +18,15 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { my @param = WebGUI::Macro::getParams($_[0]); - my $collateral = WebGUI::Collateral->find($param[0]); - my $output = 'getThumbnail. - '" border="0">
'.$param[0].'

'; - return $output; + if (my $collateral = WebGUI::Collateral->find($param[0])) { + my $output = 'getThumbnail; + $output .= '" border="0">
'.$param[0].'

'; + return $output; + } else { + return undef; + } }