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"; } |