loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.1, 2001/01/19 21:44:51	version 1.2, 2001/02/07 00:28:33
Line 11 sub BEGIN {	Line 11 sub BEGIN {
sub start_optionresponse {	sub start_optionresponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
#when in a radiobutton response use these	#when in a radiobutton response use these
&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil'));	&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	return '';
}	}
Line 137 sub displayfoils {	Line 137 sub displayfoils {
return $result."<br />";	return $result."<br />";
}	}

	sub start_conceptgroup {
	}

	sub end_conceptgroup {
	}

sub start_foil {	sub start_foil {
$Apache::lonxml::redirection--;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	if ($target eq 'web') {
	$Apache::lonxml::redirection--;
	}
return '';	return '';
}	}

Line 155 sub end_foil {	Line 164 sub end_foil {
$Apache::response::foilgroup{"$name.text"} = $Apache::lonxml::outputstack;	$Apache::response::foilgroup{"$name.text"} = $Apache::lonxml::outputstack;
}	}
}	}
	if ($target eq 'web' ) {
$Apache::lonxml::redirection++;	$Apache::lonxml::redirection++;
if ($Apache::lonxml::redirection == 1) {	if ($Apache::lonxml::redirection == 1) {
$Apache::lonxml::outputstack='';	$Apache::lonxml::outputstack='';
	}
}	}
return '';	return '';
}	}