loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.158 and 1.160

version 1.158, 2006/12/18 21:37:47	version 1.160, 2007/03/15 02:52:16
Line 265 sub meta_response_order {	Line 265 sub meta_response_order {
}	}

sub check_for_previous {	sub check_for_previous {
my ($curresponse,$partid,$id) = @_;	my ($curresponse,$partid,$id,$last) = @_;
my %previous;	my %previous;
$previous{'used'} = 0;	$previous{'used'} = 0;
foreach my $key (sort(keys(%Apache::lonhomework::history))) {	foreach my $key (sort(keys(%Apache::lonhomework::history))) {
if ($key =~ /resource\.$partid\.$id\.submission$/) {	if ($key =~ /resource\.$partid\.$id\.submission$/) {
	if ( $last && $key =~ /^(\d+):/ ) {
	next if ($1 >= $last);
	}
&Apache::lonxml::debug("Trying $key");	&Apache::lonxml::debug("Trying $key");
my $pastresponse=$Apache::lonhomework::history{$key};	my $pastresponse=$Apache::lonhomework::history{$key};
if ($pastresponse eq $curresponse) {	if ($pastresponse eq $curresponse) {
Line 1026 sub submitted {	Line 1029 sub submitted {
if ($who eq 'scantron') { return 0; }	if ($who eq 'scantron') { return 0; }
# if the Submit Answer button for this particular part was pressed	# if the Submit Answer button for this particular part was pressed
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
if (defined($env{'form.submit_'.$partid})) { return 1; }	if ($env{'form.submitted'} eq "part_$partid") {
	return 1;
	}
	if ($env{'form.submitted'} eq "yes"
	&& defined($env{'form.submit_'.$partid})) {
	return 1;
	}
# Submit All button on a .page was pressed	# Submit All button on a .page was pressed
if (defined($env{'form.all_submit'})) { return 1; }	if (defined($env{'form.all_submit'})) { return 1; }
# otherwise no submission occured	# otherwise no submission occured

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.158
changed lines
	Added in v.1.160