loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.244, 2015/10/30 03:49:47	version 1.245, 2018/03/30 23:50:13
Line 265 sub mandatory_part_meta {	Line 265 sub mandatory_part_meta {
}	}

sub meta_part_order {	sub meta_part_order {
	my ($type) = @_;
if (@Apache::inputtags::partlist) {	if (@Apache::inputtags::partlist) {
my @parts=@Apache::inputtags::partlist;	my @parts=@Apache::inputtags::partlist;
shift(@parts);	unless ($type eq 'library') {
	shift(@parts);
	}
return '<partorder>'.join(',',@parts).'</partorder>'."\n";	return '<partorder>'.join(',',@parts).'</partorder>'."\n";
	} elsif ($type eq 'library') {
	return '<partorder></partorder>'."\n";
} else {	} else {
return '<partorder>0</partorder>'."\n";	return '<partorder>0</partorder>'."\n";
}	}