loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.239, 2005/01/29 00:09:54	version 1.240, 2005/02/01 21:03:13
Line 3060 sub getSymbMap {	Line 3060 sub getSymbMap {
my $minder = 0;	my $minder = 0;

# Gather every sequence that has problems.	# Gather every sequence that has problems.
my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); }, 1);	my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); },
	1,0,1);
for my $sequence ($navmap->getById('0.0'), @sequences) {	for my $sequence ($navmap->getById('0.0'), @sequences) {
if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {	# if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
	Apache->request->print($sequence->map_pc()."<br />");
my $title = $minder.'.'.$sequence->compTitle();	my $title = $minder.'.'.$sequence->compTitle();
push @titles, $title; # minder in case two titles are identical	push @titles, $title; # minder in case two titles are identical
$symbx{$title} = $sequence->symb();	$symbx{$title} = $sequence->symb();
$minder++;	$minder++;
}	# }
}	}
return \@titles,\%symbx;	return \@titles,\%symbx;
}	}