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; + } }