loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.343, 2004/10/12 22:25:40	version 1.345, 2004/10/18 19:49:58
Line 159 sub xmlbegin {	Line 159 sub xmlbegin {
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '	.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '
.'xmlns="http://www.w3.org/TR/REC-html40">';	.'xmlns="http://www.w3.org/TR/REC-html40">';
} else {	} else {
$output='<html>';	$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
	<html>';
}	}
return $output;	return $output;
}	}
Line 1572 sub whichuser {	Line 1573 sub whichuser {
if (defined($ENV{'form.grade_symb'})) {	if (defined($ENV{'form.grade_symb'})) {
my $tmp_courseid=$ENV{'form.grade_courseid'};	my $tmp_courseid=$ENV{'form.grade_courseid'};
my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);	my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
	if (!$allowed &&
	exists($ENV{'request.course.sec'}) &&
	$ENV{'request.course.sec'} !~ /^\s*$/) {
	$allowed=&Apache::lonnet::allowed('vgr',$ENV{'form.grade_courseid'}.
	'/'.$ENV{'request.course.sec'});
	}
if ($allowed) {	if ($allowed) {
$symb=$ENV{'form.grade_symb'};	$symb=$ENV{'form.grade_symb'};
$courseid=$ENV{'form.grade_courseid'};	$courseid=$ENV{'form.grade_courseid'};