+$k->do(qq{
+delete from borrowers where borrowernumber > 57
+});
+
+borrowers qq{
+select
+ 'S' as categorycode,
+ 'SRE' as branchcode,
+ 'S' || mbr_stud as cardnumber,
+ prez_stud as surname,
+ ime_stud as firstname,
+ djevprezime as othernames,
+ spol as sex,
+ dat_rodj as dateofbirth,
+-- ime_otac as ??,
+-- ime_majka as ??,
+ ozn_drzava_preb as country,
+ post_ozn_preb as zipcode,
+ post_ozn_preb as city,
+ adr_preb as address,
+ ozn_drzava_stan as B_country,
+ post_ozn_stan as B_zipcode,
+ post_ozn_stan as B_city,
+ adr_stan as B_address,
+ tel_stud as phone,
+ dat_prava_do as dateexpiry
+-- aktivan as ??,
+from studk
+};
+
+borrowers qq{
+select
+ 'D' as categorycode,
+ 'SRE' as branchcode,
+ 'D' || 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
+};
+
+borrowers qq{
+select
+ 'O' as categorycode,
+ 'SRE' as branchcode,
+ 'O' || mbr_clan as cardnumber,
+ ime_clan as firstname,
+ prez_clan as surname,
+ ozn_titula as title, -- ?
+ zvanje_clan as borrowernotes, -- ?
+-- krat_poduz (REF poduz) as B_address,
+ tel_poduz as B_phone,
+-- fax_poduz as ??,
+ ozn_drzava as country,
+ post_ozn as zipcode,
+ post_ozn as city,
+ adr_stan as address,
+ tel_stan as phone
+-- aktivan as ??,
+from clost
+};
+