loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.57, 2009/04/16 15:51:42	version 1.59, 2009/05/06 19:25:49
Line 395 sub gettimezone {	Line 395 sub gettimezone {

sub locallocaltime {	sub locallocaltime {
my ($thistime,$timezone) = @_;	my ($thistime,$timezone) = @_;

if (!defined($thistime) \|\| $thistime eq '') {	if (!defined($thistime) \|\| $thistime eq '') {
return &mt('Never');	return &mt('Never');
}	}
Line 408 sub locallocaltime {	Line 409 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)");