--- rat/lonpage.pm 2000/11/13 18:15:54 1.17 +++ rat/lonpage.pm 2001/11/05 19:28:54 1.28 @@ -5,13 +5,15 @@ # # 05/29/00,05/30 Gerd Kortemeyer) # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, -# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6 Gerd Kortemeyer +# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16, +# 08/13/01,08/30,10/1 Gerd Kortemeyer package Apache::lonpage; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet(); +use Apache::lonxml(); use HTML::TokeParser; use GDBM_File; @@ -246,7 +248,11 @@ sub handler { $xmlbody=$token->[4]; } } elsif ($token->[1] eq 'meta') { + if ($token->[4] !~ m:/>$:) { $allmeta.="\n".$token->[4].''; + } else { + $allmeta.="\n".$token->[4]; + } } elsif (($token->[1] eq 'script') && ($bodydef==0)) { $allscript.="\n\n" @@ -263,7 +269,7 @@ sub handler { $output=~s/\