loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.98, 2001/06/27 18:52:34	version 1.99, 2001/07/03 20:58:27
Line 70 $evaluate = 1;	Line 70 $evaluate = 1;
# data structure for eidt mode, determines what tags can go into what other tags	# data structure for eidt mode, determines what tags can go into what other tags
%insertlist=();	%insertlist=();

#stores the list of active tag namespaces	# stores the list of active tag namespaces
@namespace=();	@namespace=();

	# has the dynamic menu been updated to know about this resource
	$Apache::lonxml::registered=0;

sub xmlbegin {	sub xmlbegin {
my $output='';	my $output='';
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
Line 102 sub fontsettings() {	Line 105 sub fontsettings() {
}	}

sub registerurl {	sub registerurl {
	if ($Apache::lonxml::registered) { return ''; }
if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) {	if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) {
my $hwkadd='';	my $hwkadd='';
if ($ENV{'REQUEST_URI'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($ENV{'REQUEST_URI'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
Line 464 sub callsub {	Line 468 sub callsub {

sub setup_globals {	sub setup_globals {
my ($target)=@_;	my ($target)=@_;
	$Apache::lonxml::registered = 0;
if ($target eq 'meta') {	if ($target eq 'meta') {
$Apache::lonxml::redirection = 0;	$Apache::lonxml::redirection = 0;
$Apache::lonxml::metamode = 1;	$Apache::lonxml::metamode = 1;