[BACK]Return to loncommunicate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommunicate.pm between versions 1.3 and 1.4

version 1.3, 2001/07/28 03:54:05 version 1.4, 2001/08/03 18:09:39
Line 9 Line 9
 #  #
 # 3/1/1 Gerd Kortemeyer)  # 3/1/1 Gerd Kortemeyer)
 #  #
 # 3/1,2/6,7/27 Gerd Kortemeyer  # 3/1,2/6,7/27,8/3 Gerd Kortemeyer
 #  #
 package Apache::loncommunicate;  package Apache::loncommunicate;
   
Line 33  sub handler { Line 33  sub handler {
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <img align=right src=/adm/lonIcons/lonlogos.gif>
 <h1>Communicate</h1>  <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?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);
       }
       $r->print(<<ENDTABLE);
 <h3>New Messages</h3>  <h3>New Messages</h3>
 <table border=2><tr><th>&nbsp</th>  <table border=2><tr><th>&nbsp</th>
 <th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>  <th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>
 ENDDOCUMENT  ENDTABLE
     map {      map {
         my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=          my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
     &Apache::lonmsg::unpackmsgid($_);      &Apache::lonmsg::unpackmsgid($_);
Line 51  ENDDOCUMENT Line 64  ENDDOCUMENT
  $ENV{'user.domain'}.':'.   $ENV{'user.domain'}.':'.
                                         $ENV{'user.name'}.':nohist_email',                                          $ENV{'user.name'}.':nohist_email',
                                         $ENV{'user.home'}));                                          $ENV{'user.home'}));
     $r->print(      $r->print('</table></body></html>');
    '</table><p><a href="/adm/email/">All Messages</a>'.  
    '<p><a href="/adm/email?compose=individual">Send message to user(s)</a>');  
     if (($ENV{'request.course.id'}) &&   
         (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {  
        $r->print(  
     '<p><a href="/adm/email?compose=group">Broadcast message to course</a>');  
     }  
     $r->print('</body></html>');  
     return OK;      return OK;
 }  }
   
Removed from v.1.3  
changed lines
  Added in v.1.4

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