from studk
};
+$sql = qq{
+select
+ 'D' as categorycode,
+ 'SRE' as branchcode,
+ sif_djel as cardnumber,
+ ime_djel as firstname,
+ prez_djel as surname,
+ ozn_titula as title, -- FIXME
+-- sif_orgjed (REF orgjed) as B_address,
+-- sif_strsp_djel as ??,
+ tel_djel as phonepro,
+ dat_prekid_ro as dateexpiry,
+-- tel_poduz as ??,
+ fax_poduz as fax,
+ ozn_drzava as country,
+ post_ozn as zipcode,
+ post_ozn as city,
+ adr_stan as address,
+ tel_stan as phone
+from djelat
+};
+
my $sth = $f->prepare($sql);
$sth->execute;