loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.85, 2003/09/22 20:49:01	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;