--- loncom/lonsql	2001/08/30 13:57:04	1.36
+++ loncom/lonsql	2001/10/17 02:15:59	1.37
@@ -299,7 +299,7 @@ sub make_new_child {
 				       'creationdate','keywords','language',
 				       'lastrevisiondate','mime','notes',
 				       'owner','subject','title') {
-			    $stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//;
+			    $stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//s;
 			}
 			my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};
 			$m2=~s/^$docroot//;