loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.457 and 1.459

version 1.457, 2006/09/19 21:47:32	version 1.459, 2006/09/22 19:59:30
Line 2353 sub preferred_languages {	Line 2353 sub preferred_languages {
$env{'course.'.$env{'request.course.id'}.'.languages'}));	$env{'course.'.$env{'request.course.id'}.'.languages'}));
}	}
if ($env{'environment.languages'}) {	if ($env{'environment.languages'}) {
@languages=split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'});	@languages=(@languages,
	split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));
}	}
my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0];	my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0];
if ($browser) {	if ($browser) {
Line 3211 form, .inline { display: inline; }	Line 3212 form, .inline { display: inline; }
border: 0px;	border: 0px;
}	}

	table.LC_pastsubmission {
	border: 1px solid black;
	margin: 2px;
	}

table#LC_top_nav, table#LC_menubuttons {	table#LC_top_nav, table#LC_menubuttons {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
Line 3729 sub headtag {	Line 3735 sub headtag {
my $domain = $args->{'domain'} \|\| &determinedomain();	my $domain = $args->{'domain'} \|\| &determinedomain();
my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);	my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);
my $url = join(':',$env{'user.name'},$env{'user.domain'},	my $url = join(':',$env{'user.name'},$env{'user.domain'},
#time(),
$Apache::lonnet::perlvar{'lonVersion'},	$Apache::lonnet::perlvar{'lonVersion'},
	#time(),
$env{'environment.color.timestamp'},	$env{'environment.color.timestamp'},
$function,$domain,$bgcolor);	$function,$domain,$bgcolor);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.457
changed lines
	Added in v.1.459