From 2050de56cd2c875a88a547652b6bd37c1fa38213 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 7 Jan 2005 17:14:16 +0000
Subject: [PATCH] fixed a syntax error and the Page and PageTitle macros

---
 lib/WebGUI/Asset/Wobject.pm   |  1 -
 lib/WebGUI/Macro/Page.pm      |  9 +++++----
 lib/WebGUI/Macro/PageTitle.pm | 11 ++++++-----
 3 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject.pm b/lib/WebGUI/Asset/Wobject.pm
index d91b15600..f0dba4ad0 100644
--- a/lib/WebGUI/Asset/Wobject.pm
+++ b/lib/WebGUI/Asset/Wobject.pm
@@ -28,7 +28,6 @@ use WebGUI::HTMLForm;
 use WebGUI::Id;
 use WebGUI::International;
 use WebGUI::Macro;
-use WebGUI::Node;
 use WebGUI::Privilege;
 use WebGUI::Session;
 use WebGUI::Style;
diff --git a/lib/WebGUI/Macro/Page.pm b/lib/WebGUI/Macro/Page.pm
index 836146fc9..2c7890757 100644
--- a/lib/WebGUI/Macro/Page.pm
+++ b/lib/WebGUI/Macro/Page.pm
@@ -16,10 +16,11 @@ use WebGUI::Session;
 
 #-------------------------------------------------------------------
 sub process {
-	my (@param, $temp);
-        @param = WebGUI::Macro::getParams($_[0]);
-	$temp = $session{page}{$param[0]};
-	return $temp;
+        my @param = WebGUI::Macro::getParams($_[0]);
+	if (exists $session{asset}) {
+		return $session{asset}->get($param[0]);
+	}
+	return "";
 }
 
 
diff --git a/lib/WebGUI/Macro/PageTitle.pm b/lib/WebGUI/Macro/PageTitle.pm
index bf82ad344..affd1a385 100644
--- a/lib/WebGUI/Macro/PageTitle.pm
+++ b/lib/WebGUI/Macro/PageTitle.pm
@@ -12,14 +12,15 @@ package WebGUI::Macro::PageTitle;
 
 use strict;
 use WebGUI::Session;
-use WebGUI::URL;
 
 #-------------------------------------------------------------------
 sub process {
-	if ($session{form}{op} || $session{form}{func}) {
-        	return '<a href="'.WebGUI::URL::page().'">'.$session{page}{title}.'</a>';
-	} else {
-		return $session{page}{title};
+	if (exists $session{asset}) {
+		if ($session{form}{op} || $session{form}{func}) {
+	        	return '<a href="'.$session{asset}->getUrl.'">'.$session{asset}->get("title").'</a>';
+		} else {
+			return $session{asset}->get("title");
+		}
 	}
 }