loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.288, 2004/09/13 20:06:57	version 1.289, 2004/09/14 18:05:30
Line 1685 END	Line 1685 END
return &$oldFilterFunc($res);	return &$oldFilterFunc($res);
};	};
@resources=$navmap->retrieveResources(undef,$filterFunc);	@resources=$navmap->retrieveResources(undef,$filterFunc);
@resources= sort {lc($a->compTitle) cmp lc($b->compTitle)} @resources;	@resources= sort {
	my ($atitle,$btitle) = (lc($a->compTitle),lc($b->compTitle));
	$atitle=~s/^\s*//;
	$btitle=~s/^\s*//;
	return $atitle cmp $btitle
	} @resources;
} elsif ($args->{'sort'} eq 'duedate') {	} elsif ($args->{'sort'} eq 'duedate') {
@resources=$navmap->retrieveResources(undef,	@resources=$navmap->retrieveResources(undef,
sub { shift->is_problem(); });	sub { shift->is_problem(); });