loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.263, 2004/06/28 15:09:13
+version 1.264, 2004/06/29 22:32:11
  Line 3735  sub extractParts {
                  }
              }
          }
+ 	my $resorder = &Apache::lonnet::metadata($self->src(),'responseorder');
+ 	if ($resorder) {
+ 	    my @resorder=split(/,/,$resorder);
+ 	    foreach my $part (keys(%responseIdHash)) {
+ 		my %resids = map { ($_,1) } @{ $responseIdHash{$part} };
+ 		my @neworder;
+ 		foreach my $possibleid (@resorder) {
+ 		    if (exists($resids{$possibleid})) {
+ 			push(@neworder,$possibleid);
+ 		    }
+ 		}
+ 		$responseIdHash{$part}=\@neworder;
+ 	    }
+ 	}
          $self->{RESPONSE_IDS} = \%responseIdHash;
          $self->{RESPONSE_TYPES} = \%responseTypeHash;
      }