loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.244, 2003/04/03 21:58:09	version 1.246, 2003/04/03 22:34:26
Line 475 sub latex_special_symbols {	Line 475 sub latex_special_symbols {
$current_token=~s/\\ /\\char92 /g;	$current_token=~s/\\ /\\char92 /g;
$current_token=~s/\^/\\char94 /g;	$current_token=~s/\^/\\char94 /g;
$current_token=~s/\~/\\char126 /g;	$current_token=~s/\~/\\char126 /g;
$current_token=~s/(&[^a-z\#])/\\$1/g;	$current_token=~s/(&[^A-Za-z\#])/\\$1/g;
$current_token=~s/([^&])\#/$1\\#/g;	$current_token=~s/([^&])\#/$1\\#/g;
$current_token=~s/(\$\|_\|{\|})/\\$1/g;	$current_token=~s/(\$\|_\|{\|})/\\$1/g;
$current_token=~s/\\char92 /\\texttt{\\char92}/g;	$current_token=~s/\\char92 /\\texttt{\\char92}/g;
Line 1391 sub description {	Line 1391 sub description {
# calls to lonnet functions for this setup.	# calls to lonnet functions for this setup.
# - looks for form.grade_ parameters	# - looks for form.grade_ parameters
sub whichuser {	sub whichuser {
my ($symb,$courseid,$domain,$name);	my ($symb,$courseid,$domain,$name,$publicuser);
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('mgr',$tmp_courseid);	my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid);
Line 1413 sub whichuser {	Line 1413 sub whichuser {
$name.=$ENV{'form.username'};	$name.=$ENV{'form.username'};
}	}
}	}
return ($symb,$courseid,$domain,$name);	return ($symb,$courseid,$domain,$name,$publicuser);
}	}

1;	1;