--- loncom/interface/lonmsg.pm 2003/02/18 15:47:40 1.49 +++ loncom/interface/lonmsg.pm 2003/03/17 17:02:38 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.49 2003/02/18 15:47:40 albertel Exp $ +# $Id: lonmsg.pm,v 1.50 2003/03/17 17:02:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -57,7 +57,6 @@ use HTML::Entities(); sub packagemsg { my ($subject,$message,$citation,$baseurl)=@_; - &Apache::lonnet::logthis("base is $baseurl"); $message =&HTML::Entities::encode($message); $citation=&HTML::Entities::encode($citation); $subject =&HTML::Entities::encode($subject); @@ -109,8 +108,6 @@ sub unpackagemsg { my $entry=$token->[1]; my $value=$parser->get_text('/'.$entry); $content{$entry}=$value; - &Apache::lonnet::logthis("setting $entry to $value"); - } } return %content; @@ -252,7 +249,6 @@ sub user_normal_msg_raw { unless (($message)&&($user)&&($domain)) { $status='empty'; }; my $homeserver=&Apache::lonnet::homeserver($user,$domain); if ($homeserver ne 'no_host') { - &Apache::lonnet::logthis("baseraw is $baseurl"); ($msgid,$message)=&packagemsg($subject,$message,$citation,$baseurl); $status=&Apache::lonnet::critical( 'put:'.$domain.':'.$user.':nohist_email:'.