CREATE OR REPLACE FUNCTION "ins4" (character varying, character varying[], integer[], numeric[]) RETURNS boolean AS 'DECLARE
newnode int4;
t2name varchar[];
kol int4[];
cen numeric[];
arrcolvo int4;
x int4;

BEGIN
insert into t1 (nazva) VALUES ($1);
SELECT last_value FROM t1_id_seq INTO newnode;

t2name := $2;
kol := $3;
cen := $4;
x := 1;
select array_upper(t2name, 1) into arrcolvo;

WHILE arrcolvo >= x LOOP
insert into t2 (id, dnazva, kolvo, cena) VALUES (newnode, t2name[x], kol[x], cen[x]);    
x := x + 1;
END LOOP;


RETURN 't';
END;' LANGUAGE "plpgsql"
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER