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

Diff for /loncom/interface/lonmsg.pm between versions 1.49 and 1.50

version 1.49, 2003/02/18 15:47:40 version 1.50, 2003/03/17 17:02:38
Line 57  use HTML::Entities(); Line 57  use HTML::Entities();
   
 sub packagemsg {  sub packagemsg {
     my ($subject,$message,$citation,$baseurl)=@_;      my ($subject,$message,$citation,$baseurl)=@_;
     &Apache::lonnet::logthis("base is $baseurl");  
     $message =&HTML::Entities::encode($message);      $message =&HTML::Entities::encode($message);
     $citation=&HTML::Entities::encode($citation);      $citation=&HTML::Entities::encode($citation);
     $subject =&HTML::Entities::encode($subject);      $subject =&HTML::Entities::encode($subject);
Line 109  sub unpackagemsg { Line 108  sub unpackagemsg {
    my $entry=$token->[1];     my $entry=$token->[1];
            my $value=$parser->get_text('/'.$entry);             my $value=$parser->get_text('/'.$entry);
            $content{$entry}=$value;             $content{$entry}=$value;
    &Apache::lonnet::logthis("setting $entry to $value");  
   
        }         }
     }      }
     return %content;      return %content;
Line 252  sub user_normal_msg_raw { Line 249  sub user_normal_msg_raw {
     unless (($message)&&($user)&&($domain)) { $status='empty'; };      unless (($message)&&($user)&&($domain)) { $status='empty'; };
     my $homeserver=&Apache::lonnet::homeserver($user,$domain);      my $homeserver=&Apache::lonnet::homeserver($user,$domain);
     if ($homeserver ne 'no_host') {      if ($homeserver ne 'no_host') {
     &Apache::lonnet::logthis("baseraw is $baseurl");  
        ($msgid,$message)=&packagemsg($subject,$message,$citation,$baseurl);         ($msgid,$message)=&packagemsg($subject,$message,$citation,$baseurl);
        $status=&Apache::lonnet::critical(         $status=&Apache::lonnet::critical(
            'put:'.$domain.':'.$user.':nohist_email:'.             'put:'.$domain.':'.$user.':nohist_email:'.
Removed from v.1.49  
changed lines
  Added in v.1.50

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