Select Code to Download

$sth_mlg_addr_duplicate_check->execute($fields[17],$fields[18],$fields
+[19],$fields[20],$fields[21],$fields[22],$fields[23])
      or warn "While checking for duplicate mailing address $fields[17
+]; $fields[19] $fields[20]: " . $dbh->errstr;
...
      $mlg_id = $mlg_addr_id;
      # print STDERR "\$mlg_addr_id is already defined as $mlg_addr_id
+.\n";
    }

Use of uninitialized value in concatenation (.) or string at parse_vot
+er_list.pl line 251, <$fh> line 3483.
While inserting new mailing address |xxxx RUE LOUIS PHILLIPPE|; |MARRE
+RO| |LA|, with id ||: ERROR:  duplicate key violates unique constrain
+t "mlg_addr_uniq_key"
While checking for duplicate mailing address |xxxx RUE LOUIS PHILLIPPE
+|; |MARRERO| |LA|: ERROR:  current transaction is aborted, commands i
+gnored until end of transaction block
While checking for duplicate residential address: ERROR:  current tran
+saction is aborted, commands ignored until end of transaction block
Issuing rollback() for database handle being DESTROY'd without explici
+t disconnect().

=# SELECT * FROM mlg_addr WHERE address1 LIKE '%RUE LOUIS PHILLIPPE' A
+ND city = 'MARRERO' AND state = 'LA';
 mlg_addr_id | address1 | address2 | city | state | zipcode5 | zipcode
+4 | country
-------------+----------+----------+------+-------+----------+--------
+--+---------
(0 rows)

my $mlg_addr_duplicate_check =<<EOQ;
SELECT mlg_addr_id FROM mlg_addr WHERE
...
EOQ

my $sth_insert_mlg_addr = $dbh->prepare($insert_mlg_addr) or die $dbh-
+>errstr;

=# \d mlg_addr
                                     Table "public.mlg_addr"
...
Indexes:
    "mlg_addr_id_key" UNIQUE, btree (mlg_addr_id)
    "mlg_addr_uniq_key" UNIQUE, btree (country, zipcode5, zipcode4, ad
+dress1, address2)

address1 = $fields[17]
address2 = $fields[18]
...
zipcode5 = $fields[21]
zipcode4 = $fields[22]
country = $fields[13]