loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.110, 2002/09/03 01:19:13	version 1.111, 2002/09/04 02:48:31
Line 546 sub end_while {	Line 546 sub end_while {
sub start_randomlist {	sub start_randomlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web') {	if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web' \|\|
	$target eq 'tex') {
my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);	my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);
my $b_parser= HTML::TokeParser->new(\$body);	my $b_parser= HTML::TokeParser->new(\$body);
my $b_tok;	my $b_tok;