loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommunicate.pm between versions 1.2 and 1.8

-version 1.2, 2001/02/06 16:51:24
+version 1.8, 2002/02/05 00:01:32
  Line 1
  # The LearningOnline Network
  # Communicate
  #
+ # $Id$
+ #
+ # Copyright Michigan State University Board of Trustees
+ #
+ # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+ #
+ # LON-CAPA is free software; you can redistribute it and/or modify
+ # it under the terms of the GNU General Public License as published by
+ # the Free Software Foundation; either version 2 of the License, or
+ # (at your option) any later version.
+ #
+ # LON-CAPA is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ # GNU General Public License for more details.
+ #
+ # You should have received a copy of the GNU General Public License
+ # along with LON-CAPA; if not, write to the Free Software
+ # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ #
+ # /home/httpd/html/adm/gpl.txt
+ #
+ # http://www.lon-capa.org/
+ #
  # (Internal Server Error Handler
  #
  # (Login Screen
- Line 9
+ Line 33
  #
  # 3/1/1 Gerd Kortemeyer)
  #
- # 3/1,2/6 Gerd Kortemeyer
+ # 3/1,2/6,7/27,8/3,8/15,
+ # 11/5/01 Gerd Kortemeyer
  #
  package Apache::loncommunicate;
- Line 33  sub handler {
+ Line 58  sub handler {
  <body bgcolor="#FFFFFF">
  <img align=right src=/adm/lonIcons/lonlogos.gif>
  <h1>Communicate</h1>
+ ENDDOCUMENT
+     my $st='<table><tr><td bgcolor="#FFFFAA"><b>';
+     my $en='</b></td><tr></table>';
+    $r->print('<p>'.
+  $st.'<a href="/adm/email/">All Messages</a>'.$en.'<p>'.
+  $st.'<a href="/adm/email?critical=display">Critical Messages</a>'.$en.'<p>'.
+  $st.'<a href="/adm/email?compose=individual">Send message to user(s)</a>'.$en
+      );
+     if (($ENV{'request.course.id'}) &&
+         (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
+        $r->print(
+     '<p>'.$st.
+   '<a href="/adm/email?compose=group">Broadcast message to course</a>'.$en.
+     '<p>'.$st.
+   '<a href="/adm/email?compose=upload">Upload messages to course</a>'.$en);
+     }
+     $r->print(<<ENDTABLE);
  <h3>New Messages</h3>
  <table border=2><tr><th>&nbsp</th>
  <th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>
- ENDDOCUMENT
+ ENDTABLE
-     map {
+     foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
+ 					$ENV{'user.domain'}.':'.
+                                         $ENV{'user.name'}.':nohist_email',
+ 					$ENV{'user.home'}))) {
          my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
  	    &Apache::lonmsg::unpackmsgid($_);
          if ($status eq 'new') {
- Line 47  ENDDOCUMENT
+ Line 92  ENDDOCUMENT
                    $fromname.'</td><td>'.$fromdomain.'</td><td>'.
  		      &Apache::lonnet::unescape($shortsubj).'</td></tr>');
          }
-     } sort split(/\&/,&Apache::lonnet::reply('keys:'.
+     }
- 					$ENV{'user.domain'}.':'.
+     $r->print('</table></body></html>');
-                                         $ENV{'user.name'}.':nohist_email',
-                                         $ENV{'user.home'}));
-     $r->print(
-            '</table><p><a href="/adm/email/">All Messages</a></body></html>');
      return OK;
  }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.8