}
my $dbh = C4::Context->dbh;
-my $sql = qq(SELECT surname, firstname, cardnumber, address, city, zipcode
+my $sql = qq(SELECT surname, firstname, cardnumber, address, city, zipcode, country
FROM borrowers
WHERE surname LIKE ?
OR firstname LIKE ?
$rec->{cardnumber} . "\t" .
$rec->{address} . "\t" .
$rec->{city} . "\t" .
- $rec->{zip} .
+ $rec->{zip} . "\t" .
+ $rec->{country} .
"\n";
}