loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.242, 2015/06/23 02:42:34	version 1.243, 2015/07/21 21:26:32
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);
if (!defined($processid)) { $fromcid = ''; }
my %status=();	my %status=();
unless ($skipstatus) {	unless ($skipstatus) {
if (ref($status_cache)) {	if (ref($status_cache)) {