--- loncom/interface/lonblockingmenu.pm	2011/12/28 22:09:44	1.2
+++ loncom/interface/lonblockingmenu.pm	2011/12/28 22:41:02	1.3
@@ -2,7 +2,7 @@
 # Routines for configuring blocking to collaborative functions, and specific
 # resources during an exam 
 #
-# $Id: lonblockingmenu.pm,v 1.2 2011/12/28 22:09:44 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.3 2011/12/28 22:41:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -98,9 +98,11 @@ sub handler {
 
 # ----------------------------------------------------------- Permissions check
 
-    unless ((!&Apache::lonnet::allowed('dcm',$env{'request.course.id'})) ||
-            (!&Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
+    unless ((&Apache::lonnet::allowed('dcm',$env{'request.course.id'})) ||
+            (&Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
                                       '/'.$env{'request.course.sec'}))) {
+        $env{'user.error.msg'}=
+     "/adm/setblock:dcm:0:0:Cannot set blocking of communications in a course";
         return HTTP_NOT_ACCEPTABLE;
     }