loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2008/07/06 22:14:46	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 1978 sub print_scantronformat {	Line 1979 sub print_scantronformat {
}	}
$datatable .= '<td>'.$errorstr.'</td><td> ';	$datatable .= '<td>'.$errorstr.'</td><td> ';
} elsif ($scantronurl) {	} elsif ($scantronurl) {
$datatable .= '<td><a href="'.$scantronurl.'" target="_blank">' .&mt('Custom scantron format file').'</a>'	$datatable .= '<td><a href="'.$scantronurl.'" target="_blank">'
	.&mt('Custom scantron format file').'</a>'
.'<span class="LC_nobreak"><label>'	.'<span class="LC_nobreak"><label>'
.'<input type="checkbox" name="scantronformat_del"'	.'<input type="checkbox" name="scantronformat_del"'
.'" value="1" />'.&mt('Delete?').'</label></td>'	.'" value="1" />'.&mt('Delete?').'</label></td>'
Line 4207 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);
}	}
}	}