loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.243, 2015/07/21 21:26:32	version 1.244, 2018/12/27 18:14:25
Line 491 sub sendnotification {	Line 491 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 $homeserver = &Apache::lonnet::homeserver($touname,$toudom);
	my $hostname = &Apache::lonnet::hostname($homeserver);
my $protocol = $Apache::lonnet::protocol{$homeserver};	my $protocol = $Apache::lonnet::protocol{$homeserver};
$protocol = 'http' if ($protocol ne 'https');	$protocol = 'http' if ($protocol ne 'https');
my $url = $protocol.'://'.&Apache::lonnet::hostname($homeserver).	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,