loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.231, 2012/10/12 12:45:46	version 1.232, 2012/12/18 18:26:41
Line 1135 sub scored_response {	Line 1135 sub scored_response {
sub whichorder {	sub whichorder {
my ($max,$randomize,$showall,$hash,$rndseed)=@_;	my ($max,$randomize,$showall,$hash,$rndseed)=@_;
#&Apache::lonxml::debug("man $max randomize $randomize");	#&Apache::lonxml::debug("man $max randomize $randomize");
if (!defined(@{ $$hash{'names'} })) { return; }
my @names;	my @names;
if (ref($hash->{'names'}) eq 'ARRAY') {	if (ref($hash->{'names'}) eq 'ARRAY') {
@names = @{$hash->{'names'}};	@names = @{$hash->{'names'}};