loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.159, 2007/02/24 01:44:14	version 1.161, 2007/04/07 00:42:29
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 694 sub setup_params {	Line 697 sub setup_params {
if ($env{'request.state'} eq 'construct') { return; }	if ($env{'request.state'} eq 'construct') { return; }
my %paramlist=();	my %paramlist=();
foreach my $key (keys(%Apache::lonnet::packagetab)) {	foreach my $key (keys(%Apache::lonnet::packagetab)) {
if ($key =~ /^$tag/) {	if ($key =~ /^\Q$tag\E/) {
my ($package,$name) = split(/&/,$key);	my ($package,$name) = split(/&/,$key);
$paramlist{$name}=1;	$paramlist{$name}=1;
}	}