From 87ffd9af00e7ef09a81c04936a4c51669ead5498 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 24 May 2002 16:57:29 +0000
Subject: [PATCH] Added ^Page(); macro at Support Center user request.

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

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