oops...can you fix the global a little bit:
sub {
my ($value, $format) = @_;
return if (!$value);
$format ||= '%yyyy%-%mm%-%dd%';
require GT::Date;
my $v = GT::Date::timelocal(GT::Date::parse_format($value, "%yyyy%-%mm%-%dd% %hh%:%MM%:%ss%"));
return GT::Date::date_get($v, $format);
}
It should work.
TheStone.
B.
sub {
my ($value, $format) = @_;
return if (!$value);
$format ||= '%yyyy%-%mm%-%dd%';
require GT::Date;
my $v = GT::Date::timelocal(GT::Date::parse_format($value, "%yyyy%-%mm%-%dd% %hh%:%MM%:%ss%"));
return GT::Date::date_get($v, $format);
}
It should work.
TheStone.
B.