loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.37, 2001/05/13 20:01:34	version 1.38, 2001/05/15 20:48:43
Line 131 sub end_problem {	Line 131 sub end_problem {
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
if ($Apache::inputtags::part eq '0') {	if ($Apache::inputtags::part eq '0') {

$result=&Apache::response::mandatory_part_meta;	$result=&Apache::response::mandatory_part_meta;
}	}
}	}
Line 145 sub end_problem {	Line 144 sub end_problem {
sub start_block {	sub start_block {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;

my $code = @$parstack[$#$parstack];	if ($target eq 'web' \|\| $target eq 'grade') {
$code =~ s/\"//g;	my $code = @$parstack[$#$parstack];
$code .=';return $condition;';	$code =~ s/\"//g;
# print "<br />$code<br />";	$code .=';return $condition;';
my $result = &Apache::run::run($code,$safeeval);	# print "<br />$code<br />";
&Apache::lonxml::debug("block :$code: returned :$result:");	my $result = &Apache::run::run($code,$safeeval);
if ( ! $result ) {	&Apache::lonxml::debug("block :$code: returned :$result:");
my $skip=&Apache::lonxml::get_all_text("/block",$$parser[$#$parser]);	if ( ! $result ) {
&Apache::lonxml::debug("skipping ahead :$skip: $$parser[$#$parser]");	my $skip=&Apache::lonxml::get_all_text("/block",$$parser[$#$parser]);
	&Apache::lonxml::debug("skipping ahead :$skip: $$parser[$#$parser]");
	}
}	}
return "";	return "";
}	}

sub end_block {	sub end_block {
	return '';
}	}

sub start_while {	sub start_while {