From 7ca1f4e555a786ae914463ed284410b590997bad Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 22 Apr 2003 22:16:23 +0000
Subject: [PATCH] Added macros to get random data back from the collateral
 manager.

---
 lib/WebGUI/Macro/RandomImage.pm   | 32 +++++++++++++++++++++++++++++++
 lib/WebGUI/Macro/RandomSnippet.pm | 32 +++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+)
 create mode 100644 lib/WebGUI/Macro/RandomImage.pm
 create mode 100644 lib/WebGUI/Macro/RandomSnippet.pm

diff --git a/lib/WebGUI/Macro/RandomImage.pm b/lib/WebGUI/Macro/RandomImage.pm
new file mode 100644
index 000000000..bf5692ccb
--- /dev/null
+++ b/lib/WebGUI/Macro/RandomImage.pm
@@ -0,0 +1,32 @@
+package WebGUI::Macro::RandomImage;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2003 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use Tie::CPHash;
+use WebGUI::Collateral;
+use WebGUI::Macro;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+#-------------------------------------------------------------------
+sub process {
+        my @param = WebGUI::Macro::getParams($_[0]);
+	my ($collateralFolderId) = WebGUI::SQL->quickArray("select collateralFolderId from collateralFolder where name=".quote($param[0]));
+	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 '<img src="'.$collateral->getURL.'" '.$collateral->get("parameters").' />';
+}
+
+
+1;
+
+
diff --git a/lib/WebGUI/Macro/RandomSnippet.pm b/lib/WebGUI/Macro/RandomSnippet.pm
new file mode 100644
index 000000000..c173d995d
--- /dev/null
+++ b/lib/WebGUI/Macro/RandomSnippet.pm
@@ -0,0 +1,32 @@
+package WebGUI::Macro::RandomSnippet;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2003 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use Tie::CPHash;
+use WebGUI::Collateral;
+use WebGUI::Macro;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+#-------------------------------------------------------------------
+sub process {
+        my @param = WebGUI::Macro::getParams($_[0]);
+	my ($collateralFolderId) = WebGUI::SQL->quickArray("select collateralFolderId from collateralFolder where name=".quote($param[0]));
+	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");
+}
+
+
+1;
+
+