--- loncom/interface/lonmsg.pm 2015/07/21 21:26:32 1.243 +++ loncom/interface/lonmsg.pm 2020/06/09 21:32:32 1.245 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.243 2015/07/21 21:26:32 raeburn Exp $ +# $Id: lonmsg.pm,v 1.245 2020/06/09 21:32:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -470,8 +470,8 @@ sub sendemail { } else { # Otherwise build and send the email $subject = '[LON-CAPA] '.$subject; - &Apache::loncommon::mime_email($senderaddress, $to, $subject, $body, ,'', - '', $attachmenturl, '', ''); + &Apache::loncommon::mime_email($senderaddress,$replytoaddress,$to, + $subject,$body,'','',$attachmenturl,'',''); $msgsent = 1; } return $msgsent; @@ -491,9 +491,10 @@ sub sendnotification { $text=~s/\<\;/\/gs; my $homeserver = &Apache::lonnet::homeserver($touname,$toudom); + my $hostname = &Apache::lonnet::hostname($homeserver); my $protocol = $Apache::lonnet::protocol{$homeserver}; $protocol = 'http' if ($protocol ne 'https'); - my $url = $protocol.'://'.&Apache::lonnet::hostname($homeserver). + my $url = $protocol.'://'.$hostname. '/adm/email?username='.$touname.'&domain='.$toudom. '&display='.&escape($msgid); my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,