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

Diff for /loncom/interface/loncommunicate.pm between versions 1.22 and 1.23

version 1.22, 2004/05/17 19:00:46 version 1.23, 2004/09/10 06:38:24
Line 38  use Apache::lonlocal; Line 38  use Apache::lonlocal;
 sub menu {  sub menu {
     my $r=shift;      my $r=shift;
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
 'vam' => 'View All Messages',  'mnf' => 'Make New Folder',
 'vcm' => 'View Critical Messages',  'vcm' => 'View Critical Messages',
 'smu' => 'Send Message to User(s)',  'smu' => 'Send Message to User(s)',
 'bmc' => 'Broadcast Message to Course',  'bmc' => 'Broadcast Message to Course',
Line 59  sub menu { Line 59  sub menu {
      'Course_Broadcast_Message') {       'Course_Broadcast_Message') {
  $help{$_}=&Apache::loncommon::help_open_topic($_);   $help{$_}=&Apache::loncommon::help_open_topic($_);
     }      }
       my $folderlist=&Apache::lonmsg::folderlist();
 # ------------------------------------------------------------------------ Menu  # ------------------------------------------------------------------------ Menu
    $r->print(<<END);     $r->print(<<END);
   $folderlist
   <form method="post" action="/adm/email">
   <input type="submit" value="$lt{'mnf'}" />
   <input type="text" size="15" name="newfolder" value="" />
   </form>
 <table cellspacing="10" cellpadding="2">  <table cellspacing="10" cellpadding="2">
 <tr><td bgcolor="#FFFFAA">  <tr><td bgcolor="#FFFFAA">
   <b><a href="/adm/email/">$lt{'vam'}</a></b>  
 </td></tr>  
 <tr><td bgcolor="#FFFFAA">  
   <b><a href="/adm/email?critical=display">$lt{'vcm'}</a></b>  
 </td></tr>  
 <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
Removed from v.1.22  
changed lines
  Added in v.1.23

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