Diff for /loncom/homework/response.pm between versions 1.67 and 1.68

version 1.67, 2002/11/25 21:36:42 version 1.68, 2002/11/27 19:25:56
Line 172  sub check_for_previous { Line 172  sub check_for_previous {
   my ($curresponse,$partid,$id) = @_;    my ($curresponse,$partid,$id) = @_;
   my %previous;    my %previous;
   $previous{'used'} = 0;    $previous{'used'} = 0;
   foreach my $key (reverse(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/) {
       &Apache::lonxml::debug("Trying $key");        &Apache::lonxml::debug("Trying $key");
       my $pastresponse=$Apache::lonhomework::history{$key};        my $pastresponse=$Apache::lonhomework::history{$key};
Line 183  sub check_for_previous { Line 183  sub check_for_previous {
   $history=$1;    $history=$1;
   $previous{'award'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};    $previous{'award'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};
   $previous{'last'}='0';    $previous{'last'}='0';
     push(@{ $previous{'version'} },$history);
  } else {   } else {
   $previous{'award'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};    $previous{'award'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
   $previous{'last'}='1';    $previous{'last'}='1';
  }   }
  if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }   if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }
  &Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");   &Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");
  last;  
       }        }
     }      }
   }    }
     &Apache::lonhomework::showhash(%previous);
   return %previous;    return %previous;
 }  }
   
Line 204  sub handle_previous { Line 205  sub handle_previous {
     } else {      } else {
       push(@Apache::inputtags::previous,'PREVIOUSLY_USED');        push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
     }      }
       push(@Apache::inputtags::previous_version,$$previous{'version'});
   }    }
 }  }
   

Removed from v.1.67  
changed lines
  Added in v.1.68


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