loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.248, 2022/01/18 17:33:13	version 1.249, 2022/09/18 22:33:45
Line 510 sub sendnotification {	Line 510 sub sendnotification {

$text=~s/\&lt\;/\</gs;	$text=~s/\&lt\;/\</gs;
$text=~s/\&gt\;/\>/gs;	$text=~s/\&gt\;/\>/gs;
my $homeserver = &Apache::lonnet::homeserver($touname,$toudom);	my $touhome = &Apache::lonnet::homeserver($touname,$toudom);
my $hostname = &Apache::lonnet::hostname($homeserver);	my $url = &Apache::lonnet::url_prefix('',$toudom,$touhome,'email').
my $protocol = $Apache::lonnet::protocol{$homeserver};
$protocol = 'http' if ($protocol ne 'https');
#FIXME
my $url = $protocol.'://'.$hostname.
'/adm/email?username='.$touname.'&domain='.$toudom.	'/adm/email?username='.$touname.'&domain='.$toudom.
'&display='.&escape($msgid);	'&display='.&escape($msgid);
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,