[ic] Filter not working after Perl reinstall
David Christensen
david at endpoint.com
Wed Aug 31 01:25:37 UTC 2011
On Aug 30, 2011, at 12:27 PM, Bill Carr wrote:
> After apt-get replaced my non-threaded perl on my Debian box I reinstalled perl and I'm now getting the following error:
>
> Safe: Undefined subroutine &Vend::Interpolate::UnixDate called at (tag 'cgi') line 9
>
> Below is my Filter which references UnixDate
>
> CodeDef date_mysql Filter
> CodeDef date_mysql Version $Id$
> CodeDef date_mysql Description Format values from date_time widget for MySQL
> CodeDef date_mysql Routine <<EOR
> sub {
> use Date::Manip;
> my $in = shift;
>
> $in =~ s/[^\w\d\/\-,: ]//sg; # Remove mystery characters
>
> my $out = '';
> $out = (join '-', $3, $1, $2) if $in =~ m{^(\d{1,2})/(\d{1,2})/(\d{4})$};
> $out ||= UnixDate($in,"%Y-%m-%d %H:%M:%S");
>
> return $out;
> }
> EOR
Is this defined at a global level or just in the catalog? If not, I'd move it to a GlobalSub defined at the interchange level instead of the catalog level.
Regards,
David
--
David Christensen
End Point Corporation
david at endpoint.com
More information about the interchange-users
mailing list