version 1.1, 2000/07/25 21:27:30
|
version 1.3, 2000/08/16 18:32:58
|
Line 17 sub start_block {
|
Line 17 sub start_block {
|
my $code = @$parstack[$#$parstack]; |
my $code = @$parstack[$#$parstack]; |
$code =~ s/\"//g; |
$code =~ s/\"//g; |
$code .=';return $condition;'; |
$code .=';return $condition;'; |
|
# print "<br>$code<br>"; |
my $result = &Apache::run::run($code,$safeeval); |
my $result = &Apache::run::run($code,$safeeval); |
if ( ! $result ) { |
if ( ! $result ) { |
my $skip=$parser->get_text("/block"); |
# my $skip=$$parser[$#$parser]->get_text("/block"); |
|
my $skip=&Apache::lonxml::get_all_text("block",$$parser[$#$parser]); |
|
# print "skipped $skip"; |
} |
} |
return ""; |
return ""; |
} |
} |