loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2016/01/21 00:12:38	version 1.13, 2019/06/29 23:21:05
Line 220 sub copyresourcedb {	Line 220 sub copyresourcedb {
if (($origtz eq 'local') && (!$ENV{TZ})) {	if (($origtz eq 'local') && (!$ENV{TZ})) {
$ENV{TZ} = $dt->time_zone()->name();	$ENV{TZ} = $dt->time_zone()->name();
}	}
$dt->add(days => int($date_shift));	eval {
$newdata{$thiskey} = $dt->epoch();	$dt->add(days => int($date_shift));
	};
	if ($@) {
	$newdata{$thiskey} = $newdata{$thiskey}+$delta+(60*60);
	} else {
	$newdata{$thiskey} = $dt->epoch();
	}
} else {	} else {
$newdata{$thiskey} = $newdata{$thiskey}+$delta;	$newdata{$thiskey} = $newdata{$thiskey}+$delta;
}	}