loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.50.2.3, 2010/02/12 14:20:41	version 1.50.4.2, 2009/09/14 22:34:41
Line 234 sub current_language {	Line 234 sub current_language {
}	}

sub preferred_languages {	sub preferred_languages {
	return ('gci');
my @languages=();	my @languages=();
if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {	if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {
@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));	@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));
Line 397 sub locallocaltime {	Line 398 sub locallocaltime {

my $dt = DateTime->from_epoch(epoch => $thistime)	my $dt = DateTime->from_epoch(epoch => $thistime)
->set_time_zone(&gettimezone($timezone));	->set_time_zone(&gettimezone($timezone));

# TimeZone tries to determine the 'local' timezone from $ENV{TZ} if this
# fails it searches through various system files. Under certain
# circumstances this is an extremly expensive operation.
# So after the first run we store the timezone in $ENV{TZ} to significantly
# speed up future lookups.
$ENV{TZ} = $dt->time_zone()->name()
if (! $ENV{TZ} && gettimezone($timezone) eq 'local');

if ((&current_language=~/^en/) \|\| (!$lh)) {	if ((&current_language=~/^en/) \|\| (!$lh)) {

return $dt->strftime("%a %b %e %I:%M:%S %P %Y (%Z)");	return $dt->strftime("%a %b %e %I:%M:%S %P %Y (%Z)");