--- loncom/lonnet/perl/lonnet.pm	2003/02/20 19:41:26	1.330
+++ loncom/lonnet/perl/lonnet.pm	2003/02/20 22:04:18	1.331
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.330 2003/02/20 19:41:26 www Exp $
+# $Id: lonnet.pm,v 1.331 2003/02/20 22:04:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -811,6 +811,8 @@ sub ssi_body {
                                      &ssi($filelink));
     $output=~s/^.*\<body[^\>]*\>//si;
     $output=~s/\<\/body\s*\>.*$//si;
+    $output=~
+            s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
     return $output;
 }