loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.391, 2007/03/13 18:59:56	version 1.392, 2007/03/14 19:15:37
Line 117 sub response_type {	Line 117 sub response_type {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $res = $navmap->getBySymb($symb);	my $res = $navmap->getBySymb($symb);
my $partlist = $res->parts();	my $partlist = $res->parts();
	my %vPart =
	map { $_ => 1 } (&Apache::loncommon::get_env_multiple('form.vPart'));
my (%response_types,%handgrade);	my (%response_types,%handgrade);
foreach my $part (@{ $partlist }) {	foreach my $part (@{ $partlist }) {
	next if (%vPart && !exists($vPart{$part}));

my @types = $res->responseType($part);	my @types = $res->responseType($part);
my @ids = $res->responseIds($part);	my @ids = $res->responseIds($part);
for (my $i=0; $i < scalar(@ids); $i++) {	for (my $i=0; $i < scalar(@ids); $i++) {