[LON-CAPA-cvs] cvs: loncom /interface lonchat.pm lonchatfetch.pm

[raeburn]

raeburn		Wed Jun 28 19:56:10 2006 EDT

  Modified files:              
    /loncom/interface	lonchat.pm lonchatfetch.pm 
  Log:
  Users who have permission to view course groups can now post to group chat regardless of whether they are a member of the group.
  
  
Index: loncom/interface/lonchat.pm
diff -u loncom/interface/lonchat.pm:1.13 loncom/interface/lonchat.pm:1.14
--- loncom/interface/lonchat.pm:1.13	Mon Apr 10 15:59:53 2006
+++ loncom/interface/lonchat.pm	Wed Jun 28 19:56:09 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat
 #
-# $Id: lonchat.pm,v 1.13 2006/04/10 19:59:53 albertel Exp $
+# $Id: lonchat.pm,v 1.14 2006/06/28 23:56:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,8 +44,9 @@
     if (defined($env{'form.group'})) {
         $group = $env{'form.group'};
         $group_elem = '<input type="hidden" name="group" value="'.$group.'" />'; 
-        if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
-                                                                    $group) ) {
+        if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
+                                                                    $group))
+            && (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {
             return HTTP_NOT_ACCEPTABLE;
         }
     } else {
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.27 loncom/interface/lonchatfetch.pm:1.28
--- loncom/interface/lonchatfetch.pm:1.27	Mon Jun 26 20:12:23 2006
+++ loncom/interface/lonchatfetch.pm	Wed Jun 28 19:56:09 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.27 2006/06/27 00:12:23 albertel Exp $
+# $Id: lonchatfetch.pm,v 1.28 2006/06/28 23:56:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,8 +48,9 @@
     my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
     if (defined($env{'form.group'})) {
         $group = $env{'form.group'};
-        if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
-				       $group) ) {
+        if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
+				       $group)) &&
+           (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {
             return HTTP_NOT_ACCEPTABLE;
         }
         my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);