yeah as I said, its a typo.. here is the correct code; (am too lazy to search for the typo just replace this with what you have)
if ($checkit[1] eq "$threadnum") {
if ($itWasMoved eq 'yes') {
$checkit[6] = "Y$checkit[6]";
} else {
$checkit[6] =~ s/Y//isg;
}
if ($openclose eq "open") {
$checkit[6] =~ s/X//isg;
} elsif ($openclose eq "close") {
$checkit[6] = "X$checkit[6]";
} elsif ($openclose eq "top") {
$length = $in{'length'};
if (($TimeZoneOffset ne "") || ($TimeZoneOffset ne "0")) {
$adjustTime = time() + ($TimeZoneOffset * 3600);
} else { $adjustTime = time(); }
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($adjustTime);
$year = $year +1900;
if ($length eq "perm") { $year = $year + 10; }
$mon++;
$JulianDate = &jday($mon, $mday, $year);
$Time = ("$hour" . "$min");
$JulianTime = ($JulianDate + ($Time * 0.0001));
$JulianTime = sprintf("%7.4f", $JulianTime);
$JulianTime =~ tr/ /0/;
$checkit[0] = $JulianTime;
} else {
$year = substr($checkit[5],0,4);
$mon = substr($checkit[5],4,2);
$mday = substr($checkit[5],6,2);
$hour = substr($checkit[5],8,2);
$min = substr($checkit[5],10,2);
$JulianDate = &jday($mon, $mday, $year);
$Time = ("$hour" . "$min");
$JulianTime = ($JulianDate + ($Time * 0.0001));
$JulianTime = sprintf("%7.4f", $JulianTime);
$JulianTime =~ tr/ /0/;
$checkit[0] = $JulianTime;
}