loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.27, 2000/10/11 21:12:42	version 1.29, 2000/10/26 14:01:40
Line 302 sub handler {	Line 302 sub handler {
} else {	} else {
$request->content_type('text/html');	$request->content_type('text/html');
}	}

	# $request->print(<<ENDHEADER);
	#<html>
	#<head>
	#<title>Just test</title>
	#</head>
	#<body bgcolor="#FFFFFF">
	#ENDHEADER
	# &Apache::lonhomework::send_header($request);
$request->send_http_header;	$request->send_http_header;

return OK if $request->header_only;	return 'OK' if $request->header_only;

$request->print(&Apache::lontexconvert::header());	$request->print(&Apache::lontexconvert::header());

$request->print($headerstring.'<body bgcolor="#FFFFFF">'."\n");	$request->print('<body bgcolor="#FFFFFF">'."\n");

my $file = "/home/httpd/html".$request->uri;	my $file = "/home/httpd/html".$request->uri;
my %mystyle;	my %mystyle;
my $result = '';	my $result = '';
$result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle);	$result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle);
$request->print($result);	$request->print($result);
$r->print('</body>');
$r->print(&Apache::lontexconvert::footer());	$request->print('</body>');
return OK;	$request->print(&Apache::lontexconvert::footer());
	return 'OK';
}	}

$Apache::lonxml::debug=0;	$Apache::lonxml::debug=0;