loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.154, 2003/11/12 21:37:07	version 1.156, 2003/11/17 20:53:28
Line 2140 sub bodytag {	Line 2140 sub bodytag {
my $bodytag = <<END;	my $bodytag = <<END;
<style>	<style>
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }	h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
a:hover { color: black; background: yellow }
a:focus { color: red; background: yellow }	a:focus { color: red; background: yellow }
</style>	</style>
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"	<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
Line 3211 sub propath {	Line 3210 sub propath {
return $proname;	return $proname;
}	}

	sub icon {
	my ($file)=@_;
	my @file_ext = split(/\./,$file);
	my $curfext = $file_ext[-1];
	my $iconname="unknown.gif";
	my $embstyle = &Apache::loncommon::fileembstyle($curfext);
	# The unless conditional that follows is a bit of overkill
	$iconname = $curfext.".gif" unless
	(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');
	return $Apache::lonnet::perlvar{'lonIconsURL'}."/$iconname";
	}

=pod	=pod

=back	=back