loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.203, 2003/06/13 13:58:06	version 1.204, 2003/06/14 00:11:12
Line 839 sub render_resource {	Line 839 sub render_resource {
my $linkopen = "<a href='$link'>";	my $linkopen = "<a href='$link'>";
my $linkclose = "</a>";	my $linkclose = "</a>";

# Default icon: HTML page	# Default icon: unknown page
my $icon = "<img src='/adm/lonIcons/html.gif' alt='' border='0' />";	my $icon = "<img src='/adm/lonIcons/unknown.gif' alt='' border='0' />";

if ($resource->is_problem()) {	if ($resource->is_problem()) {
if ($part eq '0' \|\| $params->{'condensed'}) {	if ($part eq '0' \|\| $params->{'condensed'}) {
Line 848 sub render_resource {	Line 848 sub render_resource {
} else {	} else {
$icon = $params->{'indentString'};	$icon = $params->{'indentString'};
}	}
	} else {
	my $curfext= (split (/\./,$resource->src))[-1];
	my $embstyle = &Apache::loncommon::fileembstyle($curfext);
	# The unless conditional that follows is a bit of overkill
	if (!(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn')) {
	$icon = "<img src='/adm/lonIcons/$curfext.gif' alt='' border='0' />";
	}
}	}

# Display the correct map icon to open or shut map	# Display the correct map icon to open or shut map