loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2002/09/09 21:01:58	version 1.6, 2002/09/16 20:15:10
Line 36 use Apache::lonnet;	Line 36 use Apache::lonnet;

sub handler {	sub handler {
my $r = shift;	my $r = shift;

	my $loaderror=&Apache::lonnet::overloaderror($r);
	if ($loaderror) { return $loaderror; }
	$loaderror=
	&Apache::lonnet::overloaderror($r,
	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
	if ($loaderror) { return $loaderror; }

$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
Line 79 sub handler {	Line 87 sub handler {
$contrib=~s/\n/ /g;	$contrib=~s/\n/ /g;
$contrib=~s/\'/\&\#39\;/g;	$contrib=~s/\'/\&\#39\;/g;
my $sender='';	my $sender='';
unless (($anon) && (!$seeid)) {	if ($seeid) {
$sender=&Apache::loncommon::plainname($snum,$sdom);	$sender=&Apache::loncommon::plainname($snum,$sdom);
if ($anon) { $sender.=' [Anon]' };	my $nick=&Apache::loncommon::nickname($snum,$sdom);
	if (($nick) && ($nick ne $sender)) {
	$sender.=' '.$nick;
	}
	if ($anon) { $sender.=' [Anon]' };
	} elsif (!$anon) {
	$sender=&Apache::loncommon::nickname($snum,$sdom);
} else {	} else {
$sender=&Apache::loncommon::screenname($snum,$sdom);	$sender=&Apache::loncommon::screenname($snum,$sdom);
unless ($sender) { $sender="Anonymous"; }	unless ($sender) { $sender="Anonymous"; }