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.181, 2006/04/11 14:17:23
Line 278 sub author_res_msg {	Line 278 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.