loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.244.4.1, 2020/06/03 18:48:34	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";
}	}
Line 1307 sub submitted {	Line 1312 sub submitted {
return 1;	return 1;
}	}
# Submit All button on a .page was pressed	# Submit All button on a .page was pressed
if ($env{'form.all_submit'}) { return 1; }	if (defined($env{'form.all_submit'})) { return 1; }
# otherwise no submission occurred	# otherwise no submission occurred
return 0;	return 0;
}	}