version 1.12, 2016/01/21 00:12:38
|
version 1.13.2.1, 2020/07/24 18:06:24
|
Line 107 sub rewritefile {
|
Line 107 sub rewritefile {
|
|
|
sub copyfile { |
sub copyfile { |
my ($origcrsid,$newcrsid,$which)=@_; |
my ($origcrsid,$newcrsid,$which)=@_; |
unless ($which=~/\.sequence$/) { |
unless ($which=~/\.(page|sequence)$/) { |
return &writefile($newcrsid,$which, |
return &writefile($newcrsid,$which, |
&readfile($origcrsid,$which)); |
&readfile($origcrsid,$which)); |
} else { |
} else { |
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; |
} |
} |