loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2004/07/27 23:35:34	version 1.24, 2005/02/17 08:50:20
Line 40 use Apache::lonxml;	Line 40 use Apache::lonxml;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
my $target=$ENV{'form.grade_target'};	my $target=$ENV{'form.grade_target'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
ENDDOCUMENT	ENDDOCUMENT