From 912a0a975ba4dc8b6ba00efd99121ea1b45ea270 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 18 Nov 2002 02:24:34 +0000
Subject: [PATCH] the template method no longer displays the "manage templates"
 link if you don't have the privileges to do so.

---
 lib/WebGUI/HTMLForm.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index 876b6d471..13dae7008 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -1522,7 +1522,7 @@ sub submit {
 
 #-------------------------------------------------------------------
 
-=head2 template ( name [, value, label, namespace, return, extras, uiLevel ] )
+=head2 template ( name [, value, label, namespace, afterEdit, extras, uiLevel ] )
 
 =cut
 
@@ -1532,13 +1532,15 @@ sub template {
         my ($name, $value, $label, $namespace, $afterEdit, $extras, $uiLevel) = 
 		rearrange([qw(name value label namespace afterEdit extras uiLevel)], @p);
         if (_uiLevelChecksOut($uiLevel)) {
-        	if ($afterEdit) {
-                	$subtext = '<a href="'.WebGUI::URL::page("op=editTemplate&tid=".$value."&namespace=".$namespace
-				."&afterEdit="
-                        	.WebGUI::URL::escape($afterEdit)).'">'.WebGUI::International::get(741).'</a> / ';
-        	}
-        	$subtext .= '<a href="'.WebGUI::URL::page("op=listTemplates&namespace=$namespace").'">'
-			.WebGUI::International::get(742).'</a>';
+		if (WebGUI::Privilege::isInGroup($session{setting}{templateManagersGroup})) {
+        		if ($afterEdit) {
+                		$subtext = '<a href="'.WebGUI::URL::page("op=editTemplate&tid=".$value."&namespace=".$namespace
+					."&afterEdit="
+                        		.WebGUI::URL::escape($afterEdit)).'">'.WebGUI::International::get(741).'</a> / ';
+        		}
+        		$subtext .= '<a href="'.WebGUI::URL::page("op=listTemplates&namespace=$namespace").'">'
+				.WebGUI::International::get(742).'</a>';
+		}
         	$output = WebGUI::Form::template({
                 	"name"=>$name,
                 	"value"=>$value,