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. |