[LON-CAPA-cvs] cvs: loncom /interface lonchatfetch.pm

[www]

www		Sun Jun 27 13:14:29 2004 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm 
  Log:
  Bug #3100: correct handling of "'"
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.12 loncom/interface/lonchatfetch.pm:1.13
--- loncom/interface/lonchatfetch.pm:1.12	Thu Jul 24 13:53:59 2003
+++ loncom/interface/lonchatfetch.pm	Sun Jun 27 13:14:28 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.12 2003/07/24 17:53:59 matthew Exp $
+# $Id: lonchatfetch.pm,v 1.13 2004/06/27 17:14:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -124,7 +124,7 @@
 		$sender=&Apache::loncommon::screenname($snum,$sdom);
 		unless ($sender) { $sender="Anonymous"; }
 	    }
-	    $sender=~s/\'/\"/g;
+	    $sender=~s/\'/\&\#39\;/g;
 	    my $color=$sender;
 	    $color=~tr/a-j/0-9/;
 	    $color=~tr/A-J/0-9/;