[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[albertel]

albertel		Mon Mar 17 12:02:38 2003 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  -removing baseurl testing logsthises
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.49 loncom/interface/lonmsg.pm:1.50
--- loncom/interface/lonmsg.pm:1.49	Tue Feb 18 10:47:40 2003
+++ loncom/interface/lonmsg.pm	Mon Mar 17 12:02:38 2003
@@ -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 @@
 
 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 @@
 	   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 @@
     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:'.