loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.239.2.1, 2016/08/04 22:53:55	version 1.241, 2015/06/18 23:02:48
Line 397 sub buildmsgid {	Line 397 sub buildmsgid {
}	}

sub unpackmsgid {	sub unpackmsgid {
my ($msgid,$folder,$skipstatus,$status_cache,$onlycid)=@_;	my ($msgid,$folder,$skipstatus,$status_cache)=@_;
$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);