loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.235, 2013/07/24 18:21:39	version 1.237, 2014/12/11 01:53:22
Line 625 sub retrieve_author_res_msg {	Line 625 sub retrieve_author_res_msg {
my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//);	my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//);
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);	my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
my $msgs='';	my $msgs='';
foreach (keys %errormsgs) {	foreach (keys(%errormsgs)) {
if ($_=~/^\Q$url\E\_\d+$/) {	if ($_=~/^\Q$url\E\_\d+$/) {
my %content=&unpackagemsg($errormsgs{$_});	my %content=&unpackagemsg($errormsgs{$_});
$msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.	$msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.
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;