From f9781149ec43e7eacb7f56c394812b109af5f883 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 22 May 2002 00:54:53 +0000
Subject: [PATCH] Added ThumbnailLinker Macro.

---
 lib/WebGUI/Macro/ThumbnailLinker.pm | 42 +++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 lib/WebGUI/Macro/ThumbnailLinker.pm

diff --git a/lib/WebGUI/Macro/ThumbnailLinker.pm b/lib/WebGUI/Macro/ThumbnailLinker.pm
new file mode 100644
index 000000000..5702a5070
--- /dev/null
+++ b/lib/WebGUI/Macro/ThumbnailLinker.pm
@@ -0,0 +1,42 @@
+package WebGUI::Macro::ThumbnailLinker;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2002 Plain Black Software.
+#-------------------------------------------------------------------
+# 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::Attachment;
+use WebGUI::Macro;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+#-------------------------------------------------------------------
+sub _replacement {
+	my (@param, %data, $image, $output);
+	tie %data, 'Tie::CPHash';
+        @param = WebGUI::Macro::getParams($_[0]);
+	%data = WebGUI::SQL->quickHash("select * from images where name='$param[0]'");
+	$image = WebGUI::Attachment->new($data{filename},"images",$data{imageId});
+	$output = '<a href="'.$image->getURL.'"><img src="'.$image->getThumbnail.
+		'" border="0"></a><br><b>'.$param[0].'</b><p>';
+	return $output;
+}
+
+#-------------------------------------------------------------------
+sub process {
+	my ($output, $temp);
+	$output = $_[0];
+        $output =~ s/\^ThumbnailLinker\((.*?)\)\;/_replacement($1)/ge;
+	return $output;
+}
+
+1;
+
+