Return to lonmsg.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.235, 2013/07/24 18:21:39 | version 1.236, 2014/10/26 15:34:44 |
---|---|
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; |