loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.136, 2002/11/12 05:05:27	version 1.137, 2002/11/13 23:37:56
Line 502 sub start_block {	Line 502 sub start_block {
if ($code) {	if ($code) {
$code =~ s/\"//g;	$code =~ s/\"//g;
$code .=';return $condition;';	$code .=';return $condition;';
	if (!$Apache::lonxml::default_homework_loaded) {
	&Apache::lonxml::default_homework_load($safeeval);
	}
$result = &Apache::run::run($code,$safeeval);	$result = &Apache::run::run($code,$safeeval);
&Apache::lonxml::debug("block :$code: returned :$result:");	&Apache::lonxml::debug("block :$code: returned :$result:");
} else {	} else {
Line 537 sub start_while {	Line 540 sub start_while {
$code .=';return $condition;';	$code .=';return $condition;';

push( @Apache::structuretags::whileconds, $code);	push( @Apache::structuretags::whileconds, $code);
	if (!$Apache::lonxml::default_homework_loaded) {
	&Apache::lonxml::default_homework_load($safeeval);
	}
my $result = &Apache::run::run($code,$safeeval);	my $result = &Apache::run::run($code,$safeeval);
my $bodytext=$$parser[$#$parser]->get_text("/while");	my $bodytext=$$parser[$#$parser]->get_text("/while");
push( @Apache::structuretags::whilebody, $bodytext);	push( @Apache::structuretags::whilebody, $bodytext);