--- loncom/build/cvsfilter.pl	2001/02/27 16:20:03	1.1
+++ loncom/build/cvsfilter.pl	2003/02/03 18:03:52	1.3
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# Scott Harrison
 # 02/27/2001
 
 # Accepts input from commands like:
@@ -8,15 +7,22 @@
 
 $/="=" x 77 . "\n";
 
+my $count=1;
 while(<>) {
     if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
-	s/branch:.*\n//;
-	s/locks:.*\n//;
-	s/access list:.*\n//;
-	s/symbolic names:.*\n//;
-	s/keyword substitution:.*\n//;
-	s/total revisions:.*\n//;
+	s/\nbranch:.*//;
+	s/\nlocks:.*//;
+	s/\naccess list:.*//;
+	s/\nsymbolic names:.*//;
+	s/\nkeyword substitution:.*//;
+	s/\ntotal revisions:.*//;
+	s/\n\?.*//g if $count==1;
+	s/^\?.*//g if $count==1;
+	my $gt='&gt;';
+	my $lt='&lt;';
+	s/\>/$gt/g;
+	s/\</$lt/g;
 	print "$_";
     }   
-
+    $count++;
 }