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.112, 2002/09/05 03:30:27
Line 393 sub end_problem {	Line 393 sub end_problem {
$result.= $gradestatus;	$result.= $gradestatus;
}	}
if (	if (
(($target eq 'web' \|\| $target eq 'tex') && ($ENV{'request.state'} ne 'construct')) \|\|	(($target eq 'web') && ($ENV{'request.state'} ne 'construct')) \|\|
($target eq 'answer')	($target eq 'answer') \|\| ($target eq 'tex')
) {	) {
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
if ($target ne 'tex') {	if ($target ne 'tex') {
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;