loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.206, 2002/10/21 17:10:35	version 1.207, 2002/10/21 20:31:06
Line 858 sub setup_globals {	Line 858 sub setup_globals {
$Apache::lonxml::registered = 0;	$Apache::lonxml::registered = 0;
$errorcount=0;	$errorcount=0;
$warningcount=0;	$warningcount=0;
	$Apache::lonxml::default_homework_loaded=0;
&init_counter();	&init_counter();
@Apache::lonxml::pwd=();	@Apache::lonxml::pwd=();
@Apache::lonxml::extlinks=();	@Apache::lonxml::extlinks=();
Line 959 sub init_safespace {	Line 960 sub init_safespace {
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
}	}

	sub default_homework_load {
	my ($safeeval)=@_;
	&Apache::lonxml::debug('Loading default_homework');
	my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm');
	if ($default == -1) {
	&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");
	} else {
	&Apache::run::run($default,$safeeval);
	$Apache::lonxml::default_homework_loaded=1;
	}
	}

sub startredirection {	sub startredirection {
$Apache::lonxml::redirection++;	$Apache::lonxml::redirection++;
push (@Apache::lonxml::outputstack, '');	push (@Apache::lonxml::outputstack, '');