From 3c0c47014ced843d12e2c5c1a6c7a6f5572e3568 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 13 Jan 2006 18:29:42 +0000
Subject: [PATCH] string concat, Grouping->Group merge provides access to
 groupId

---
 lib/WebGUI/Group.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm
index dfc6c59b7..3beb1fba9 100755
--- a/lib/WebGUI/Group.pm
+++ b/lib/WebGUI/Group.pm
@@ -433,7 +433,7 @@ sub find {
 	my $class = shift;
 	my $session = shift;
 	my $name = shift;
-	my ($groupId) = $self->session->db->quickArray("select groupId from groups where groupName=".$self->session->db->quote($name));
+	my ($groupId) = $session->db->quickArray("select groupId from groups where groupName=".$session->db->quote($name));
 	return WebGUI::Group->new($session,$groupId);
 }
 
@@ -540,9 +540,9 @@ sub getUsers {
 	my $withoutExpired = shift;
 	my $clause;
 	if ($withoutExpired) {
-		$clause = "expireDate > "$self->session->datetime->time()." and ";
+		$clause = "expireDate > ".$self->session->datetime->time()." and ";
 	}
-	$clause .= "(groupId=".$self->session->db->quote($groupId);
+	$clause .= "(groupId=".$self->session->db->quote($self->getId);
  	if ($recursive) {
 		my $groups = $self->getGroupsIn(1);
 		if ($#$groups >= 0) {