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

Diff for /loncom/interface/loncommunicate.pm between versions 1.16 and 1.19

version 1.16, 2003/09/23 00:26:10 version 1.19, 2004/01/15 03:53:12
Line 73  END Line 73  END
 'op' => 'Open',  'op' => 'Open',
 'do' => 'Domain'  'do' => 'Domain'
 );  );
       my %help=();
       foreach ('Course_Face_To_Face_Records,Course_Critical_Message',
        'Course_Broadcast_Message') {
    $help{$_}=&Apache::loncommon::help_open_topic($_);
       }
   
    $r->print(&Apache::loncommon::bodytag("Communication and Messages"));     $r->print(&Apache::loncommon::bodytag("Communication and Messages").
        &Apache::loncommon::help_open_faq(12).
        &Apache::loncommon::help_open_bug('Communication Tools'));
    $r->print(<<END);     $r->print(<<END);
 <table cellspacing="10" cellpadding="2">  <table cellspacing="10" cellpadding="2">
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
Line 91  END Line 98  END
         (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {          (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
         $r->print(<<END);          $r->print(<<END);
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
   <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>      <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
 </td></tr>  </td></tr>
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
   <b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b>    <b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b>
 </td></tr>  </td></tr>
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
   <b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>  <b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}
 </td></tr>  </td></tr>
   
 END  END
Line 112  END Line 119  END
         my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=          my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=
     &Apache::lonmsg::unpackmsgid($_);      &Apache::lonmsg::unpackmsgid($_);
        if (defined($sendtime) && $sendtime!~/error/) {         if (defined($sendtime) && $sendtime!~/error/) {
         $sendtime = localtime($sendtime);          $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
         if ($status eq 'new') {          if ($status eq 'new') {
             push @newmsgs, {               push @newmsgs, { 
                 msgid    => $_,                  msgid    => $_,
Removed from v.1.16  
changed lines
  Added in v.1.19

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