Changes

CREATE TABLE tablename AS

SELECT * FROM tablename WHERE date_prod >= '2002-01-01';

DROP TABLE tablename;

CREATE FUNCTION getreal (text) RETURNS real AS $$

if ($_[0]=~/^\d{1,}\.\d{0,}$/) { return $_[0]; }

return undef;

$$ LANGUAGE plperl;

DROP Function correctyear(int,int);