From 2a6143b36dede2d0ff3e2bd07fdcdf9bed9b4659 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 16 Jan 2004 04:24:35 +0000
Subject: [PATCH] added head block processing

---
 docs/changelog/6.x.x.txt |  4 ++++
 lib/WebGUI/Style.pm      | 26 +++++++++++++++++++++++++-
 2 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index bd9deee1c..89d77266f 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -33,3 +33,7 @@
  - Wobject privileges are available per page rather than site-wide.
  - Templatized the Rich Editor support. Tnx to Len Kranendonk
  - Fixed a problem in the forum that showed up under Postgres.
+ - Added some processing functions to programatically add meta tags,
+   javascript, and link tags to the head block of a page from anywhere within
+webgui.
+
diff --git a/lib/WebGUI/Style.pm b/lib/WebGUI/Style.pm
index cf53905f4..7a34a9b12 100644
--- a/lib/WebGUI/Style.pm
+++ b/lib/WebGUI/Style.pm
@@ -103,7 +103,31 @@ sub process {
 		<meta http-equiv="Content-Type" content="text/html; charset='.($session{header}{charset}||$session{language}{characterSet}||"ISO-8859-1").'" />
 		<link rel="icon" href="'.$session{setting}{siteicon}.'" type="image/'.$type.'" />
 		<link rel="SHORTCUT ICON" href="'.$session{setting}{favicon}.'" />
-		';
+		'.$session{page}{head}{raw};
+        # generate additional link tags
+	foreach my $url (keys %{$session{page}{head}{link}}) {
+		$var{'head.tags'} .= '<link href="'.$url.'"';
+		foreach my $name (keys %{$session{page}{head}{link}{$url}}) {
+			$var{'head.tags'} .= ' '.$name.'="'.$session{page}{head}{link}{$url}{$name}.'"';
+		}
+		$var{'head.tags'} .= ' />'."\n";
+	}
+	# generate additional javascript tags
+	foreach my $url (keys %{$session{page}{head}{javascript}}) {
+		$var{'head.tags'} .= '<script src="'.$url.'"';
+		foreach my $name (keys %{$session{page}{head}{javascript}{$url}}) {
+			$var{'head.tags'} .= ' '.$name.'="'.$session{page}{head}{javascript}{$url}{$name}.'"';
+		}
+		$var{'head.tags'} .= '></script>'."\n";
+	}
+	# generate additional meta tags
+	foreach my $tag (@{$session{page}{head}{meta}}) {
+		$var{'head.tags'} .= '<meta';
+		foreach my $name (keys %{$tag}) {
+			$var{'head.tags'} .= ' '.$name.'="'.$tag->{$name}.'"';
+		}
+		$var{'head.tags'} .= ' />'."\n";
+	}
 	$var{'head.tags'} .= $session{page}{metaTags};
 	if ($session{var}{adminOn}) {
                 # This "triple incantation" panders to the delicate tastes of various browsers for reliable cache suppression.