--- loncom/interface/lonclonecourse.pm 2016/01/21 00:12:38 1.12 +++ loncom/interface/lonclonecourse.pm 2019/06/29 23:21:05 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # routines for clone a course # -# $Id: lonclonecourse.pm,v 1.12 2016/01/21 00:12:38 raeburn Exp $ +# $Id: lonclonecourse.pm,v 1.13 2019/06/29 23:21:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -220,8 +220,14 @@ sub copyresourcedb { if (($origtz eq 'local') && (!$ENV{TZ})) { $ENV{TZ} = $dt->time_zone()->name(); } - $dt->add(days => int($date_shift)); - $newdata{$thiskey} = $dt->epoch(); + eval { + $dt->add(days => int($date_shift)); + }; + if ($@) { + $newdata{$thiskey} = $newdata{$thiskey}+$delta+(60*60); + } else { + $newdata{$thiskey} = $dt->epoch(); + } } else { $newdata{$thiskey} = $newdata{$thiskey}+$delta; }