--- loncom/homework/structuretags.pm 2001/05/13 20:01:34 1.37 +++ loncom/homework/structuretags.pm 2001/05/15 20:48:43 1.38 @@ -131,7 +131,6 @@ sub end_problem { } if ($target eq 'meta') { if ($Apache::inputtags::part eq '0') { - $result=&Apache::response::mandatory_part_meta; } } @@ -145,20 +144,23 @@ sub end_problem { sub start_block { my ($target,$token,$parstack,$parser,$safeeval)=@_; - my $code = @$parstack[$#$parstack]; - $code =~ s/\"//g; - $code .=';return $condition;'; -# print "
$code
"; - my $result = &Apache::run::run($code,$safeeval); - &Apache::lonxml::debug("block :$code: returned :$result:"); - if ( ! $result ) { - my $skip=&Apache::lonxml::get_all_text("/block",$$parser[$#$parser]); - &Apache::lonxml::debug("skipping ahead :$skip: $$parser[$#$parser]"); + if ($target eq 'web' || $target eq 'grade') { + my $code = @$parstack[$#$parstack]; + $code =~ s/\"//g; + $code .=';return $condition;'; + # print "
$code
"; + my $result = &Apache::run::run($code,$safeeval); + &Apache::lonxml::debug("block :$code: returned :$result:"); + if ( ! $result ) { + my $skip=&Apache::lonxml::get_all_text("/block",$$parser[$#$parser]); + &Apache::lonxml::debug("skipping ahead :$skip: $$parser[$#$parser]"); + } } return ""; } sub end_block { + return ''; } sub start_while {