[LON-CAPA-cvs] cvs: loncom /interface loncommunicate.pm lonmsg.pm

[albertel]

albertel		Fri May 20 13:00:42 2005 EDT

  Modified files:              
    /loncom/interface	loncommunicate.pm lonmsg.pm 
  Log:
  - if in a sec only boradcast to that sec
  
  
  
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.28 loncom/interface/loncommunicate.pm:1.29
--- loncom/interface/loncommunicate.pm:1.28	Thu Apr  7 02:56:23 2005
+++ loncom/interface/loncommunicate.pm	Fri May 20 13:00:40 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.28 2005/04/07 06:56:23 albertel Exp $
+# $Id: loncommunicate.pm,v 1.29 2005/05/20 17:00:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,7 +67,10 @@
 </td></tr>
 END
     if (($env{'request.course.id'}) && 
-        (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {
+        (
+	 &Apache::lonnet::allowed('srm',$env{'request.course.id'}) ||
+	 &Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'.$env{'request.course.sec'})
+	 )) {
         $r->print(<<END);
 <tr><td bgcolor="#FFFFAA">
     <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.142 loncom/interface/lonmsg.pm:1.143
--- loncom/interface/lonmsg.pm:1.142	Sat May 14 21:11:32 2005
+++ loncom/interface/lonmsg.pm	Fri May 20 13:00:40 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.142 2005/05/15 01:11:32 www Exp $
+# $Id: lonmsg.pm,v 1.143 2005/05/20 17:00:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -707,6 +707,8 @@
                       &Apache::loncoursedata::CL_FULLNAME(),
                       &Apache::loncoursedata::CL_SECTION()]);
         next if ($status ne 'Active');
+	next if ($env{'request.course.sec'} &&
+		 $section ne $env{'request.course.sec'});
         my $key = 'send_to_&&&'.$section.'&&&_'.$student;
         if (! defined($fullname) || $fullname eq '') { $fullname = $sname; }
         $r->print('<tr><td><label>'.