loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2000/08/03 19:34:11	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[$#$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 "";
}	}