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); |