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

Diff for /loncom/interface/lonmsg.pm between versions 1.88 and 1.89

version 1.88, 2004/03/01 02:21:57 version 1.89, 2004/03/01 16:19:45
Line 802  ENDDISHEADER Line 802  ENDDISHEADER
   
 sub compout {  sub compout {
     my ($r,$forwarding,$broadcast)=@_;      my ($r,$forwarding,$broadcast)=@_;
       my $dispcrit='';      &printheader($r,'/adm/email?compose=upload',
        'Distribute from uploaded file');
       my $dispcrit='';
     my $dissub='';      my $dissub='';
     my $dismsg='';      my $dismsg='';
     my $func=&mt('Send New');      my $func=&mt('Send New');
Line 942  $content{'sendername'}.'@'. Line 944  $content{'sendername'}.'@'.
     }      }
 }  }
   
   # ---------------------------------------------------------------- Print header
   
   sub printheader {
       my ($r,$url,$desc,$baseurl)=@_;
       &Apache::lonhtmlcommon::add_breadcrumb
    ({href=>$url,
     text=>$desc});
       &header($r,$baseurl);
   }
   
 # ---------------------------------------------------------------- Face to face  # ---------------------------------------------------------------- Face to face
   
 sub facetoface {  sub facetoface {
Line 949  sub facetoface { Line 961  sub facetoface {
     unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {      unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
  return;   return;
     }      }
     &Apache::lonhtmlcommon::add_breadcrumb      &printheader($r,
  ({href=>'/adm/dropadd?recordftf=query',   '/adm/email?recordftf=query',
   text=>"User Notes, Face-to-Face, Critical Messages",   "User Notes, Face-to-Face, Critical Messages");
  faq=>12,bug=>'Communication Tools'});  
     &header($r);  
 # from query string  # from query string
   
     if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; }      if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; }
Removed from v.1.88  
changed lines
  Added in v.1.89

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