loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.61, 2008/07/08 03:04:23	version 1.62, 2008/07/09 21:34:27
Line 41 use LONCAPA;	Line 41 use LONCAPA;
use LONCAPA::Enrollment;	use LONCAPA::Enrollment;
use File::Copy;	use File::Copy;
use Locale::Language;	use Locale::Language;
	use DateTime::TimeZone;

sub handler {	sub handler {
my $r=shift;	my $r=shift;
Line 4208 sub modify_defaults {	Line 4209 sub modify_defaults {
}	}
} elsif ($item eq 'timezone_def') {	} elsif ($item eq 'timezone_def') {
if ($newvalues{$item} ne '') {	if ($newvalues{$item} ne '') {
my @timezones = &DateTime::TimeZone->all_names;	if (!DateTime::TimeZone->is_valid_name($newvalues{$item})) {
if (!grep(/^\Q$newvalues{$item}\E/,@timezones)) {
push(@errors,$item);	push(@errors,$item);
}	}
}	}