loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.82, 2001/05/30 17:42:15	version 1.83, 2001/05/31 22:38:36
Line 365 sub callsub {	Line 365 sub callsub {
}	}
}	}
}	}
&Apache::lonxml::debug("nodefalt:$nodefault:");	# &Apache::lonxml::debug("nodefalt:$nodefault:");
if ($currentstring eq '' && $nodefault eq '') {	if ($currentstring eq '' && $nodefault eq '') {
if ($target eq 'edit') {	if ($target eq 'edit') {
&Apache::lonxml::debug("doing default edit for $token->[1]");	&Apache::lonxml::debug("doing default edit for $token->[1]");
Line 736 sub warning {	Line 736 sub warning {
}	}
}	}

	sub get_param {
	my ($param,$parstack,$safeeval,$context) = @_;
	if ( ! $context ) { $context = -1; }
	my $args ='';
	if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
	return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #'
	}

sub register_insert {	sub register_insert {
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');	my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');
my $i;	my $i;