loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.84, 2003/08/20 14:05:40	version 1.86, 2003/10/06 21:57:54
Line 180 sub mandatory_part_meta {	Line 180 sub mandatory_part_meta {
#	#
}	}

	sub meta_part_order {
	if (@Apache::inputtags::partlist) {
	my @parts=@Apache::inputtags::partlist;
	shift(@parts);
	return '<partorder>'.join(',',@parts).'</partorder>';
	} else {
	return '<partorder>0</partorder>';
	}
	}

sub check_for_previous {	sub check_for_previous {
my ($curresponse,$partid,$id) = @_;	my ($curresponse,$partid,$id) = @_;
my %previous;	my %previous;
Line 556 sub whichorder {	Line 566 sub whichorder {
return @whichopt;	return @whichopt;
}	}

	sub show_answer {
	my $part = $Apache::inputtags::part;
	my $award = $Apache::lonhomework::history{"resource.$part.solved"};
	my $status = $Apache::inputtags::status[-1];
	return ( ($award =~ /^correct/
	&& lc($Apache::lonhomework::problemstatus) ne 'no')
	\|\| $status eq "SHOW_ANSWER");
	}
1;	1;
__END__	__END__