From 7bb1b6bb36310a2604414b157249cbfbbb57cc85 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 13 Jul 2004 20:58:15 +0000
Subject: [PATCH] visitors cannot add/remove themselves from groups

---
 lib/WebGUI/Macro/GroupAdd.pm    | 2 ++
 lib/WebGUI/Macro/GroupDelete.pm | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/lib/WebGUI/Macro/GroupAdd.pm b/lib/WebGUI/Macro/GroupAdd.pm
index 9417d5b29..d12e3e6c9 100644
--- a/lib/WebGUI/Macro/GroupAdd.pm
+++ b/lib/WebGUI/Macro/GroupAdd.pm
@@ -22,6 +22,8 @@ use WebGUI::URL;
 sub process {
 	my @param = WebGUI::Macro::getParams($_[0]);
 	return "" if ($param[0] eq "");
+	return "" if ($param[1] eq "");
+	return "" if ($session{user}{userId} == 1);
 	my $g = WebGUI::Group->find($param[0]);
 	return "" if ($g->groupId eq "");
 	return "" unless ($g->autoAdd);
diff --git a/lib/WebGUI/Macro/GroupDelete.pm b/lib/WebGUI/Macro/GroupDelete.pm
index 4bd630408..31615bbef 100644
--- a/lib/WebGUI/Macro/GroupDelete.pm
+++ b/lib/WebGUI/Macro/GroupDelete.pm
@@ -22,6 +22,8 @@ use WebGUI::URL;
 sub process {
 	my @param = WebGUI::Macro::getParams($_[0]);
 	return "" if ($param[0] eq "");
+	return "" if ($param[1] eq "");
+        return "" if ($session{user}{userId} == 1);
 	my $g = WebGUI::Group->find($param[0]);
 	return "" if ($g->groupId eq "");
 	return "" unless ($g->autoDelete);