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

Diff for /loncom/interface/loncommunicate.pm between versions 1.25 and 1.31

version 1.25, 2004/11/11 20:41:53 version 1.31, 2006/04/08 06:59:34
Line 31  package Apache::loncommunicate; Line 31  package Apache::loncommunicate;
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonmsg();  use Apache::lonmsgdisplay();
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnet;
   
 sub menu {  sub menu {
     my $r=shift;      my $r=shift;
Line 56  sub menu { Line 57  sub menu {
     }      }
 # ------------------------------------------------------------------------ Menu  # ------------------------------------------------------------------------ Menu
    $r->print(<<END);     $r->print(<<END);
 <form method="post" action="/adm/email">  <table cellspacing="10" cellpadding="2">
   <tr><td bgcolor="#FFFFAA"><form method="post" action="/adm/email">
 <input type="submit" value="$lt{'mnf'}" />  <input type="submit" value="$lt{'mnf'}" />
 <input type="text" size="15" name="newfolder" value="" />  <input type="text" size="15" name="newfolder" value="" />
 </form>  </form></td>
 <table cellspacing="10" cellpadding="2">  <td bgcolor="#FFFFAA">
 <tr><td bgcolor="#FFFFAA">  
   <b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>    <b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>
 </td></tr>  </td></tr>
 END  END
     if (($ENV{'request.course.id'}) &&       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);          $r->print(<<END);
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
     <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}      <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
 </td></tr>  </td>
 <tr><td bgcolor="#FFFFAA">  <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>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}  <b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}
 </td></tr>  </td>
 <tr><td bgcolor="#FFFFAA">  <td bgcolor="#FFFFAA">
   <b><a href="/adm/email?block=display">$lt{'cbs'}</a>    <b><a href="/adm/email?block=display">$lt{'cbs'}</a>
 </td></tr>  </td></tr>
 END  END
Line 93  sub handler { Line 97  sub handler {
 #  #
 # Start document  # Start document
 #  #
     $r->print(<<END);  
 <html>  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 END  
   
 # ----------------------------------------------------------------- Breadcrumbs  # ----------------------------------------------------------------- Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 108  END Line 106  END
           faq=>12,bug=>'Communication Tools',});            faq=>12,bug=>'Communication Tools',});
   
 # ---------------------------------------------------------------------- Header  # ---------------------------------------------------------------------- Header
     &Apache::lonmsg::header($r);      &Apache::lonmsgdisplay::header($r);
     &menu($r);      &menu($r);
     &Apache::lonmsg::disall($r,'new');      &Apache::lonmsgdisplay::disall($r,'new');
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
Removed from v.1.25  
changed lines
  Added in v.1.31

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