![[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|
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; |