From 5c00dfcfdaf2deb8cea568ccf8a1551b70d9dcbe Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 15 Mar 2006 22:41:23 +0000
Subject: [PATCH] User->isInGroup no longer takes a userId as an argument. Have
 to create a user object with the right Id and then call it with all groups to
 check.

---
 lib/WebGUI/Asset.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index eceff7618..43d4567a0 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -127,10 +127,11 @@ Unique hash identifier for a user. If not specified, uses current userId.
 sub canView {
 	my $self = shift;
 	my $userId = shift || $self->session->user->userId;
+	my $user = WebGUI::User->new($self->session, $userId);
 	return 0 unless ($self->get("state") eq "published");
 	if ($userId eq $self->get("ownerUserId")) {
                 return 1;
-        } elsif ($self->session->user->isInGroup($self->get("groupIdView"),$userId)) {
+        } elsif ($user->isInGroup($self->get("groupIdView"))) {
                 return 1;
         }
         return $self->canEdit($userId);