loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.352, 2005/12/02 23:06:02	version 1.353, 2005/12/05 19:30:22
Line 2640 sub getResourceByUrl {	Line 2640 sub getResourceByUrl {
if (ref($resUrl)) { return $resUrl; }	if (ref($resUrl)) { return $resUrl; }

$resUrl = &Apache::lonnet::clutter($resUrl);	$resUrl = &Apache::lonnet::clutter($resUrl);
if (defined($multiple)) {
if ($multiple) {
my @resIds = $self->{NAV_HASH}->{'ids_' . $resUrl};
}
}
my $resId = $self->{NAV_HASH}->{'ids_' . $resUrl};	my $resId = $self->{NAV_HASH}->{'ids_' . $resUrl};
if (!$resId) { return ''; }	if (!$resId) { return ''; }
if ($multiple) {	if ($multiple) {
my @resources = ();	my @resources = ();
my @resIds = split (/,/, $resId);	my @resIds = split (/,/, $resId);
foreach my $id (@resIds) {	foreach my $id (@resIds) {
if ($id) {	my $resourceId = $self->getById($id);
push(@resources,$self->getById($id));	if ($resourceId) {
	push(@resources,$resourceId);
}	}
}	}
return @resources;	return @resources;