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.5, 2002/09/13 19:32:09
Line 79 sub handler {	Line 79 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"; }