loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.405, 2006/06/28 20:15:37	version 1.408, 2006/06/29 18:43:33
Line 3200 table#LC_menubuttons img, table#LC_menub	Line 3200 table#LC_menubuttons img, table#LC_menub
table#LC_top_nav td {	table#LC_top_nav td {
background: $tabbg;	background: $tabbg;
border: 0px;	border: 0px;
	font-size: small;
}	}
table#LC_top_nav td a, div#LC_top_nav a {	table#LC_top_nav td a, div#LC_top_nav a {
color: $font;	color: $font;
Line 3208 table#LC_top_nav td a, div#LC_top_nav a	Line 3209 table#LC_top_nav td a, div#LC_top_nav a
table#LC_top_nav td.LC_top_nav_logo {	table#LC_top_nav td.LC_top_nav_logo {
background: $tabbg;	background: $tabbg;
text-align: right;	text-align: right;
	white-space: nowrap;
	font-weight: bold;
	}
	table#LC_top_nav td.LC_top_nav_logo img {
	margin-left: 0.2em;
	vertical-align: bottom;
}	}
table#LC_breadcrumbs td {	table#LC_breadcrumbs td {
background: $tabbg;	background: $tabbg;
Line 5179 sub course_type {	Line 5186 sub course_type {
}	}
}	}

	sub group_term {
	my $crstype = &course_type();
	my %names = (
	'Course' => 'group',
	'Group' => 'team',
	);
	return $names{$crstype};
	}

sub icon {	sub icon {
my ($file)=@_;	my ($file)=@_;
my $curfext = (split(/\./,$file))[-1];	my $curfext = (split(/\./,$file))[-1];