relid := TG_relid::regclass;

-- plpgsql can't discoverit's trigger data in a hash like perl and python

-- plpgsql can't discoverits trigger data in a hash like perl and python

-- can, or by a sort of reflection like tcl can,

-- so we have to hard code the names.

raise NOTICE 'TG_NAME: %', TG_name;

if TG_OP != 'DELETE' then

raise NOTICE 'NEW: %', NEW;

end if;

if TG_OP = 'DELETE' then

return OLD;

else

relid := TG_relid::regclass;

raise NOTICE'TG_NAME: %', TG_name;

if TG_OP!='DELETE' then

raise NOTICE'NEW: %', NEW;

end if;

if TG_OP='DELETE' then

return OLD;

else