--- capa/capa51/Discuss/Ver1.3/Attic/capadiscuss	1999/10/14 18:47:01	1.3
+++ capa/capa51/Discuss/Ver1.3/Attic/capadiscuss	1999/12/16 22:08:57	1.5
@@ -327,8 +327,8 @@ sub ViewProblem {
           $hidebutton = &UnHideButtonHTML;
           $messagenote = "Hidden by $hiddenuser on $hiddendate at $hiddentime from $hiddenaddr";
         }
-	$message =~ s/</&lt;/g;
-	$message =~ s/>/&gt;/g;
+#	$message =~ s/</&lt;/g;
+#	$message =~ s/>/&gt;/g;
         &ViewProblemGutsHTML;
       }
     }
@@ -349,6 +349,7 @@ sub ViewProblem {
 }
 
 sub ViewInfoFile {
+  &Log("InfoFile");
   open(INFOFILE,"$capadir/$class/discussion/$file");
     @file = <INFOFILE>;
   closedir(INFOFILE);
@@ -582,7 +583,9 @@ sub WriteMsg {
   # add sr to grab e-mail address of user
 
   $message = $form{'message'};
-  $message =~ s/\n\r\n/<p>/g;
+  $message =~ s/</&lt;/g;
+  $message =~ s/>/&gt;/g;
+  $message =~ s/((\n\r)|(\n))\n/<p>/g;
   $message =~ s/\n/<br>/g;
 
   # check if posted anonymously
@@ -847,7 +850,7 @@ sub Log {
 
   &Lock("lock.file");
   open(LOG,">>$capadir/$class/discussion/logs/access.log");
-    print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time\n";
+    print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time|$file\n";
   close(LOG);
   &Unlock("lock.file");
 }