loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.493 and 1.494.4.1

version 1.493, 2009/04/13 20:42:32	version 1.494.4.1, 2009/08/13 04:30:56
Line 109 use Apache::lonfeedback();	Line 109 use Apache::lonfeedback();
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::loncacc();	use Apache::loncacc();
use Apache::lonmaxima();	use Apache::lonmaxima();
	use Apache::lonr();
use Apache::lonlocal;	use Apache::lonlocal;

#==================================== Main subroutine: xmlparse	#==================================== Main subroutine: xmlparse
Line 755 sub init_safespace {	Line 756 sub init_safespace {
$safehole->wrap(\&Apache::lonmaxima::maxima_cas_formula_fix,$safeeval,	$safehole->wrap(\&Apache::lonmaxima::maxima_cas_formula_fix,$safeeval,
'&maxima_cas_formula_fix');	'&maxima_cas_formula_fix');

	$safehole->wrap(\&Apache::lonr::r_eval,$safeeval,'&r_eval');
	$safehole->wrap(\&Apache::lonr::Rentry,$safeeval,'&Rentry');
	$safehole->wrap(\&Apache::lonr::Rarray,$safeeval,'&Rarray');
	$safehole->wrap(\&Apache::lonr::r_check,$safeeval,'&r_check');
	$safehole->wrap(\&Apache::lonr::r_cas_formula_fix,$safeeval,
	'&r_cas_formula_fix');

$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,	$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,
'&capa_formula_fix');	'&capa_formula_fix');

Line 1035 sub get_id {	Line 1043 sub get_id {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
if ($env{'request.state'} eq 'construct' && $id =~ /([._]\|[^\w\d\s[:punct:]])/) {	if ($env{'request.state'} eq 'construct' && $id =~ /([._]\|[^\w\d\s[:punct:]])/) {
&error(&mt("ID "[_1]" contains invalid characters, IDs are only allowed to contain letters, numbers, spaces and -",'<tt>'.$id.'</tt>'));	&error(&mt("ID [_1] contains invalid characters, IDs are only allowed to contain letters, numbers, spaces and -",'<tt>'.$id.'</tt>'));
}	}
if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }	if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
return $id;	return $id;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.493
changed lines
	Added in v.1.494.4.1