loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.191, 2006/12/24 22:13:19	version 1.192, 2006/12/27 18:00:00
Line 191 sub unpackagemsg {	Line 191 sub unpackagemsg {
sub buildmsgid {	sub buildmsgid {
my ($now,$subject,$uname,$udom,$msgcount,$course_context,$symb,$error,$pid) = @_;	my ($now,$subject,$uname,$udom,$msgcount,$course_context,$symb,$error,$pid) = @_;
$subject=&escape($subject);	$subject=&escape($subject);
	$symb = &escape($symb);
return(&escape($now.':'.$subject.':'.$uname.':'.	return(&escape($now.':'.$subject.':'.$uname.':'.
$udom.':'.$msgcount.':'.$course_context.':'.$pid.':'.$symb.':'.$error));	$udom.':'.$msgcount.':'.$course_context.':'.$pid.':'.$symb.':'.$error));
}	}
Line 202 sub unpackmsgid {	Line 203 sub unpackmsgid {
$processid,$symb,$error) = split(/\:/,&unescape($msgid));	$processid,$symb,$error) = split(/\:/,&unescape($msgid));
$shortsubj = &unescape($shortsubj);	$shortsubj = &unescape($shortsubj);
$shortsubj = &HTML::Entities::decode($shortsubj);	$shortsubj = &HTML::Entities::decode($shortsubj);
	$symb = &unescape($symb);
if (!defined($processid)) { $fromcid = ''; }	if (!defined($processid)) { $fromcid = ''; }
my %status=();	my %status=();
unless ($skipstatus) {	unless ($skipstatus) {