loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.44, 2008/05/16 16:11:56	version 1.46, 2008/07/02 21:10:41
Line 165 use Apache::localize;	Line 165 use Apache::localize;
use locale;	use locale;
use POSIX qw(locale_h strftime);	use POSIX qw(locale_h strftime);
use DateTime();	use DateTime();
	use DateTime::TimeZone;

require Exporter;	require Exporter;

Line 267 sub get_language_handle {	Line 268 sub get_language_handle {

# ========================================================== Localize localtime	# ========================================================== Localize localtime
sub gettimezone {	sub gettimezone {
my ($time) = @_;	my $timezone;
if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) {	if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) {
return $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'};	$timezone = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'};
	} elsif ($Apache::lonnet::env{'request.course.id'} ne '') {
	my $cdom = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.domain'};
	if ($cdom ne '') {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
	if ($domdefaults{'timezone_def'} ne '') {
	$timezone = $domdefaults{'timezone_def'};
	}
	}
	}
	if ($timezone ne '') {
	if (DateTime::TimeZone->is_valid_name($timezone)) {
	return $timezone;
	}
}	}
return 'local';	return 'local';
}	}