loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.110, 2001/08/10 16:22:23	version 1.111, 2001/08/11 20:16:10
Line 13	Line 13
# 6/12,6/13 H. K. Ng	# 6/12,6/13 H. K. Ng
# 6/16 Gerd Kortemeyer	# 6/16 Gerd Kortemeyer
# 7/27 H. K. Ng	# 7/27 H. K. Ng
# 8/7,8/9,8/10 Gerd Kortemeyer	# 8/7,8/9,8/10,8/11 Gerd Kortemeyer

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 325 sub htmlclean {	Line 325 sub htmlclean {

my $output= $tree->as_HTML(undef,' ');	my $output= $tree->as_HTML(undef,' ');

$output=~s/\<(br\|hr\|img)([^\>\/]*)\>/\<$1$2 \/\>/gis;	$output=~s/\<(br\|hr\|img\|meta\|allow)([^\>\/]*)\>/\<$1$2 \/\>/gis;
$output=~s/\<\/(br\|hr\|img)\>//gis;	$output=~s/\<\/(br\|hr\|img\|meta\|allow)\>//gis;
unless ($full) {	unless ($full) {
$output=~s/\<[\/]*(body\|head\|html)\>//gis;	$output=~s/\<[\/]*(body\|head\|html)\>//gis;
}	}
Line 777 sub parstring {	Line 777 sub parstring {

sub writeallows {	sub writeallows {
my $thisurl='/res/'.&Apache::lonnet::declutter(shift);	my $thisurl='/res/'.&Apache::lonnet::declutter(shift);
	if ($ENV{'httpref.'.$thisurl}) {
	$thisurl=$ENV{'httpref.'.$thisurl};
	}
my $thisdir=$thisurl;	my $thisdir=$thisurl;
$thisdir=~s/\/[^\/]+$//;	$thisdir=~s/\/[^\/]+$//;
my %httpref=();	my %httpref=();