From 3f67e1c293860f9b66c97743c8c1c257d5b99c39 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 28 May 2002 00:41:40 +0000
Subject: [PATCH] Added ^URLEncode(); macro.

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

diff --git a/lib/WebGUI/Macro/URLEncode.pm b/lib/WebGUI/Macro/URLEncode.pm
new file mode 100644
index 000000000..31cbb6ddb
--- /dev/null
+++ b/lib/WebGUI/Macro/URLEncode.pm
@@ -0,0 +1,34 @@
+package WebGUI::Macro::URLEncode;
+
+#-------------------------------------------------------------------
+# 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 WebGUI::Macro;
+use WebGUI::Session;
+use WebGUI::URL;
+
+#-------------------------------------------------------------------
+sub _replacement {
+        my (@param);
+        @param = WebGUI::Macro::getParams($1);
+	return WebGUI::URL::escape($param[0]);
+}
+
+#-------------------------------------------------------------------
+sub process {
+        my ($output, $temp, @param);
+        $output = $_[0];
+        $output =~ s/\^URLEncode\((.*?)\)\;/_replacement($1)/ge;
+	return $output;
+}
+
+1;
+