Return to lonchatfetch.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.12, 2003/07/24 17:53:59 | version 1.13, 2004/06/27 17:14:28 |
---|---|
Line 124 sub handler { | Line 124 sub handler { |
$sender=&Apache::loncommon::screenname($snum,$sdom); | $sender=&Apache::loncommon::screenname($snum,$sdom); |
unless ($sender) { $sender="Anonymous"; } | unless ($sender) { $sender="Anonymous"; } |
} | } |
$sender=~s/\'/\"/g; | $sender=~s/\'/\&\#39\;/g; |
my $color=$sender; | my $color=$sender; |
$color=~tr/a-j/0-9/; | $color=~tr/a-j/0-9/; |
$color=~tr/A-J/0-9/; | $color=~tr/A-J/0-9/; |