loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.71, 2003/12/05 22:14:15	version 1.72, 2003/12/29 21:21:39
Line 270 sub author_res_msg {	Line 270 sub author_res_msg {
my ($filename,$message)=@_;	my ($filename,$message)=@_;
unless ($message) { return 'empty'; }	unless ($message) { return 'empty'; }
$filename=&Apache::lonnet::declutter($filename);	$filename=&Apache::lonnet::declutter($filename);
my ($domain,$author)=split(/\//,$filename);	my ($domain,$author,@dummy)=split(/\//,$filename);
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);
my $msgid;	my $msgid;
($msgid,$message)=&packagemsg("Error: [$filename]",$message);	($msgid,$message)=&packagemsg($filename,$message);
#FIXME this should be nohist_res_msg, we need to provide an interface
# to this hash BUG#2444
#return &Apache::lonnet::reply('put:'.$domain.':'.$author.
# ':nohist_res_msg:'.
# &Apache::lonnet::escape($filename.'_'.$id).'='.
# &Apache::lonnet::escape($message),$homeserver);
return &Apache::lonnet::reply('put:'.$domain.':'.$author.	return &Apache::lonnet::reply('put:'.$domain.':'.$author.
':nohist_email:'.	':nohist_res_msgs:'.
&Apache::lonnet::escape($msgid).'='.	&Apache::lonnet::escape($filename.'_'.$id).'='.
&Apache::lonnet::escape($message),$homeserver);	&Apache::lonnet::escape($message),$homeserver);
}	}
return 'no_host';	return 'no_host';
}	}