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

Diff for /loncom/interface/loncommunicate.pm between versions 1.20 and 1.21

version 1.20, 2004/03/01 02:21:57 version 1.21, 2004/03/26 19:35:59
Line 35  use Apache::lonmsg(); Line 35  use Apache::lonmsg();
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
   
 sub handler {  sub menu {
     my $r = shift;      my $r=shift;
     &Apache::loncommon::content_type($r,'text/html');      my %lt=&Apache::lonlocal::texthash(
     $r->send_http_header;  
     return OK if $r->header_only;  
 #  
 # Start document  
 #  
     $r->print(<<END);  
 <html>  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 END  
    my %lt=&Apache::lonlocal::texthash(  
 'vam' => 'View All Messages',  'vam' => 'View All Messages',
 'vcm' => 'View Critical Messages',  'vcm' => 'View Critical Messages',
 'smu' => 'Send Message to User(s)',  'smu' => 'Send Message to User(s)',
Line 69  END Line 57  END
      'Course_Broadcast_Message') {       'Course_Broadcast_Message') {
  $help{$_}=&Apache::loncommon::help_open_topic($_);   $help{$_}=&Apache::loncommon::help_open_topic($_);
     }      }
   
 # ----------------------------------------------------------------- Breadcrumbs  
     &Apache::lonhtmlcommon::clear_breadcrumbs();  
     &Apache::lonhtmlcommon::add_breadcrumb  
         ({href=>"/adm/communicate",  
           text=>"Communication/Messages",  
           faq=>12,bug=>'Communication Tools',});  
   
 # ---------------------------------------------------------------------- Header  
     &Apache::lonmsg::header($r);  
   
 # ------------------------------------------------------------------------ Menu  # ------------------------------------------------------------------------ Menu
    $r->print(<<END);     $r->print(<<END);
 <table cellspacing="10" cellpadding="2">  <table cellspacing="10" cellpadding="2">
Line 150  ENDLINK Line 127  ENDLINK
     } else {      } else {
         $r->print("<h3>".&mt('You have no unread messages')."</h3>");          $r->print("<h3>".&mt('You have no unread messages')."</h3>");
     }      }
   }
   
   sub handler {
       my $r = shift;
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       return OK if $r->header_only;
   #
   # Start document
   #
       $r->print(<<END);
   <html>
   <head>
   <title>The LearningOnline Network with CAPA</title>
   </head>
   END
   
   # ----------------------------------------------------------------- Breadcrumbs
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/communicate",
             text=>"Communication/Messages",
             faq=>12,bug=>'Communication Tools',});
   
   # ---------------------------------------------------------------------- Header
       &Apache::lonmsg::header($r);
       &menu($r);
     return OK;      return OK;
 }  }
   
Removed from v.1.20  
changed lines
  Added in v.1.21

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