Help for this page

Select Code to Download

Select or download this

CREATE TABLE computer (
    compid integer NOT NULL,
    compman character varying(128) NOT NULL,
...
custid integer NOT NULL,
compid integer NOT NULL
);

Select or download this

my $newperson = eval { $customer_rs->create({
firstname => $params->{firstname},
lastname => $params->{lastname},
...
    custid => $customer->{uniqid},
    compid => $computer->{compid},
}) };