loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.103, 2001/07/27 00:18:59	version 1.105, 2001/08/06 19:44:54
Line 12	Line 12
# 6/2,6/3,6/8,6/9 Gerd Kortemeyer	# 6/2,6/3,6/8,6/9 Gerd Kortemeyer
# 6/12,6/13 H. K. Ng	# 6/12,6/13 H. K. Ng
# 6/16 Gerd Kortemeyer	# 6/16 Gerd Kortemeyer
	# 7/27 H. K. Ng

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 131 sub fontsettings() {	Line 132 sub fontsettings() {
sub registerurl {	sub registerurl {
my $forcereg=shift;	my $forcereg=shift;
if ($Apache::lonxml::registered) { return ''; }	if ($Apache::lonxml::registered) { return ''; }
	$Apache::lonxml::registered=1;
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {	if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {
my $hwkadd='';	my $hwkadd='';
if ($ENV{'REQUEST_URI'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($ENV{'REQUEST_URI'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {