loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.239, 2015/02/13 01:46:03	version 1.239.2.1, 2016/08/04 22:53:55
Line 397 sub buildmsgid {	Line 397 sub buildmsgid {
}	}

sub unpackmsgid {	sub unpackmsgid {
my ($msgid,$folder,$skipstatus,$status_cache)=@_;	my ($msgid,$folder,$skipstatus,$status_cache,$onlycid)=@_;
$msgid=&unescape($msgid);	$msgid=&unescape($msgid);
my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid,	my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid,
$processid,$symb,$error) = split(/\:/,&unescape($msgid));	$processid,$symb,$error) = split(/\:/,&unescape($msgid));
	if (!defined($processid)) { $fromcid = ''; }
	if (($onlycid) && ($onlycid ne $fromcid)) {
	return ($sendtime,'',$fromname,$fromdomain,'',$fromcid,'',$error);
	}
$shortsubj = &unescape($shortsubj);	$shortsubj = &unescape($shortsubj);
$shortsubj = &HTML::Entities::decode($shortsubj);	$shortsubj = &HTML::Entities::decode($shortsubj);
$symb = &unescape($symb);	$symb = &unescape($symb);