loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.405, 2006/04/13 18:35:17	version 1.408, 2006/04/18 20:50:45
Line 206 sub xmlend {	Line 206 sub xmlend {
return '';	return '';
}	}

return $discussion.&Apache::loncommon::end_page();	return $discussion;
}	}

sub tokeninputfield {	sub tokeninputfield {
Line 304 sub printtokenheader {	Line 304 sub printtokenheader {
}	}
}	}

sub fontsettings {
my $headerstring='';
if (($env{'browser.os'} eq 'mac') && (!$env{'browser.mathml'})) {
$headerstring.=
'<meta Content-Type="text/html; charset=x-mac-roman" />';
} elsif (!$env{'browser.mathml'} && $env{'browser.unicode'}) {
$headerstring.=
'<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />';
}
return $headerstring;
}

sub printalltags {	sub printalltags {
my $temp;	my $temp;
foreach $temp (sort keys %Apache::lonxml::alltags) {	foreach $temp (sort keys %Apache::lonxml::alltags) {
Line 1505 ENDNOTFOUND	Line 1493 ENDNOTFOUND
my %options = ();	my %options = ();
if ($env{'environment.remote'} ne 'off') {	if ($env{'environment.remote'} ne 'off') {
$options{'bgcolor'} = '#FFFFFF';	$options{'bgcolor'} = '#FFFFFF';
$options{'only_body'} = 1;
}	}
my $start_page = &Apache::loncommon::start_page(undef,undef,	my $start_page = &Apache::loncommon::start_page(undef,undef,
\%options);	\%options);