From 79692ca8fe85cd6c515fa0dd4789f1982e79e4b4 Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Fri, 3 Jul 2009 01:39:34 +0000
Subject: [PATCH] Fixed: Survey - check for groupToEditSurvey as well as
 groupToViewSurvey in canView

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 21a7cf526..55d370bb6 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -2140,8 +2140,9 @@ sub canTakeSurvey {
     my $self = shift;
 
     return $self->{canTake} if ( defined $self->{canTake} );
-
-    if ( !$self->session->user->isInGroup( $self->get('groupToTakeSurvey') ) ) {
+    
+    # Immediately reject if not in groupToTakeSurvey or groupToEditSurvey
+    if ( !$self->session->user->isInGroup( $self->get('groupToTakeSurvey') ) && !$self->session->user->isInGroup( $self->get('groupToEditSurvey') ) ) {
         return 0;
     }