|
version 1.239.2.4, 2022/01/19 03:33:46
|
version 1.239.2.4.2.1, 2023/01/23 17:52:06
|
|
Line 512 sub sendnotification {
|
Line 512 sub sendnotification {
|
| |
|
| $text=~s/\<\;/\</gs; |
$text=~s/\<\;/\</gs; |
| $text=~s/\>\;/\>/gs; |
$text=~s/\>\;/\>/gs; |
| my $homeserver = &Apache::lonnet::homeserver($touname,$toudom); |
my $touhome = &Apache::lonnet::homeserver($touname,$toudom); |
| my $protocol = $Apache::lonnet::protocol{$homeserver}; |
my $url = &Apache::lonnet::url_prefix('',$toudom,$touhome,'email'). |
| $protocol = 'http' if ($protocol ne 'https'); |
|
| my $url = $protocol.'://'.&Apache::lonnet::hostname($homeserver). |
|
| '/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, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsg.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface