loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.180, 2006/04/08 06:53:37	version 1.182, 2006/04/23 04:04:38
Line 188 sub unpackmsgid {	Line 188 sub unpackmsgid {
$msgid=&Apache::lonnet::unescape($msgid);	$msgid=&Apache::lonnet::unescape($msgid);
my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid,	my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid,
$processid)=split(/\:/,&Apache::lonnet::unescape($msgid));	$processid)=split(/\:/,&Apache::lonnet::unescape($msgid));
	$shortsubj = &Apache::lonnet::unescape($shortsubj);
	$shortsubj = &HTML::Entities::decode($shortsubj);
if (!defined($processid)) { $fromcid = ''; }	if (!defined($processid)) { $fromcid = ''; }
my %status=();	my %status=();
unless ($skipstatus) {	unless ($skipstatus) {
Line 278 sub author_res_msg {	Line 280 sub author_res_msg {
my $homeserver=&Apache::lonnet::homeserver($author,$domain);	my $homeserver=&Apache::lonnet::homeserver($author,$domain);
if ($homeserver ne 'no_host') {	if ($homeserver ne 'no_host') {
my $id=unpack("%32C*",$message);	my $id=unpack("%32C*",$message);
	$message .= " <p>This error occurred on machine ".
	$Apache::lonnet::perlvar{'lonHostID'}."</p>";
my $msgid;	my $msgid;
($msgid,$message)=&packagemsg($filename,$message);	($msgid,$message)=&packagemsg($filename,$message);
return &Apache::lonnet::reply('put:'.$domain.':'.$author.	return &Apache::lonnet::reply('put:'.$domain.':'.$author.