loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.250, 2003/05/02 19:57:01	version 1.252, 2003/05/16 18:34:56
Line 722 sub init_safespace {	Line 722 sub init_safespace {
$safeeval->permit("sort");	$safeeval->permit("sort");
$safeeval->deny(":base_io");	$safeeval->deny(":base_io");
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse');	$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse');
	$safehole->wrap(\&Apache::outputtags::multipart,$safeeval,'&multipart');
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');	$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');

$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');	$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');
Line 1251 ENDNOTFOUND	Line 1252 ENDNOTFOUND

writeallows($request->uri);	writeallows($request->uri);

	# If we're editing, show the filename of the resource in the frame's main
	# title
	if ($ENV{'form.editmode'}) {
	my $filename = $request->uri;
	# Everything after the last /
	$filename = substr($filename, rindex($filename, '/') + 1);
	$result = substr($result, 0, rindex($result, '</html>'));
	$result .= "<script>top.document.title = '$filename - LON-CAPA Construction Space';</script>";
	$result .= "\n</html>\n";
	}


$request->print($result);	$request->print($result);

return OK;	return OK;