loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.136, 2001/10/26 17:09:04	version 1.138, 2001/11/07 21:26:04
Line 95 sub xmlbegin {	Line 95 sub xmlbegin {
} else {	} else {
$output='<html>';	$output='<html>';
}	}
my $date=localtime;
$output .=&Apache::loncommon::cacheheader();
return $output;	return $output;
}	}

Line 1010 sub handler {	Line 1008 sub handler {
} else {	} else {
$request->content_type('text/html');	$request->content_type('text/html');
}	}
	&Apache::loncommon::no_cache($request);
$request->send_http_header;	$request->send_http_header;

return OK if $request->header_only;	return OK if $request->header_only;
Line 1163 sub register_insert {	Line 1161 sub register_insert {

sub description {	sub description {
my ($token)=@_;	my ($token)=@_;
return $insertlist{$insertlist{"$token->[1].num"}.'.description'};	my $tagnum;
	my $tag=$token->[1];
	foreach my $namespace (reverse @Apache::lonxml::namespace) {
	my $testtag=$namespace.'::'.$tag;
	$tagnum=$insertlist{"$testtag.num"};
	if (defined($tagnum)) { last; }
	}
	if (!defined ($tagnum)) { $tagnum=$Apache::lonxml::insertlist{"$tag.num"}; }
	return $insertlist{$tagnum.'.description'};
}	}

# ----------------------------------------------------------------- whichuser	# ----------------------------------------------------------------- whichuser