loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.234, 2012/05/21 18:35:35	version 1.236, 2014/10/26 15:34:44
Line 526 sub sendnotification {	Line 526 sub sendnotification {

to access the full message.',$url);	to access the full message.',$url);
my %userenv = &Apache::lonnet::get('environment',['notifywithhtml'],$toudom,$touname);	my %userenv = &Apache::lonnet::get('environment',['notifywithhtml'],$toudom,$touname);
my $subject = &mt_user($user_lh,"'New' $critical message from ").$sender;	my $subject = &mt_user($user_lh,"'New'$critical message from [_1]",$sender);
unless ($subj eq '') {	unless ($subj eq '') {
$subject = $subj;	$subject = $subj;
}	}
Line 901 sub user_normal_msg {	Line 901 sub user_normal_msg {
}	}

sub process_sent_mail {	sub process_sent_mail {
my ($msgsubj,$subj_prefix,$numsent,$stamp,$msgname,$msgdom,$msgcount,$context,$pid,$savemsg,$recusers,$recudoms,$baseurl,$attachmenturl,$symb,$error,$senderuname,$senderdom,$recipid) = @_;	my ($msgsubj,$subj_prefix,$numsent,$stamp,$msgname,$msgdom,$msgcount,
	$context,$pid,$savemsg,$recusers,$recudoms,$baseurl,$attachmenturl,
	$symb,$error,$senderuname,$senderdom,$recipid) = @_;
my $sentsubj;	my $sentsubj;
if ($numsent > 1) {	if ($numsent > 1) {
$sentsubj = $subj_prefix.' ('.$numsent.' sent) '.$msgsubj;	$sentsubj = $subj_prefix.' ('.$numsent.' sent) '.$msgsubj;