loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.33, 2000/11/06 16:22:59	version 1.34, 2000/11/06 17:03:29
Line 303 sub parstring {	Line 303 sub parstring {
return $temp;	return $temp;
}	}

	sub writeallows {
	my $thisurl='/res/'.&Apache::lonnet::declutter(shift);
	my $thisdir=$thisurl;
	$thisdir=~s/\/[^\/]+$//;
	my %httpref=();
	map {
	$httpref{'httpref.'.
	&Apache::lonnet::hreflocation($thisdir,$_)}=$thisurl; } @extlinks;
	&Apache::lonnet::appenv(%httpref);
	}

sub handler {	sub handler {
my $request=shift;	my $request=shift;

Line 338 sub handler {	Line 349 sub handler {

$request->print('</body>');	$request->print('</body>');
$request->print(&Apache::lontexconvert::footer());	$request->print(&Apache::lontexconvert::footer());
	writeallows($request->uri);
return 'OK';	return 'OK';
}	}