[Koha-patches] [PATCH 2/3] bug 3482: Fix csv output (missing country)

[Henri-Damien LAURENT]

when outputting csv, a field is missing
---
 misc/cronjobs/overdue_notices.pl |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl
index 3f31526..ae6c46b 100755
--- a/misc/cronjobs/overdue_notices.pl
+++ b/misc/cronjobs/overdue_notices.pl
@@ -40,6 +40,7 @@ use C4::Dates qw/format_date/;
 use C4::Debug;
 use C4::Letters;
 use C4::Overdues qw(GetFine);
+use open qw(:std :utf8);
 
 =head1 NAME
 
@@ -528,6 +529,7 @@ END_SQL
                             address1       => $address1,
                             address2       => $address2,
                             city           => $city,
+                            country        => $country,
                             postcode       => $postcode,
                             email          => $email,
                             itemcount      => $itemcount,
@@ -556,6 +558,7 @@ END_SQL
                                 address1       => $address1,
                                 address2       => $address2,
                                 city           => $city,
+                                country        => $country,
                                 postcode       => $postcode,
                                 email          => $email,
                                 itemcount      => $itemcount,
@@ -718,7 +721,7 @@ sub prepare_letter_for_printing {
     if ( exists $params->{'outputformat'} && $params->{'outputformat'} eq 'csv' ) {
         if ($csv->combine(
                 $params->{'firstname'}, $params->{'lastname'}, $params->{'address1'},  $params->{'address2'}, $params->{'postcode'},
-                $params->{'city'},      $params->{'email'},    $params->{'itemcount'}, $params->{'titles'}
+                $params->{'city'}, $params->{'country'},      $params->{'email'},    $params->{'itemcount'}, $params->{'titles'}
             )
           ) {
             return $csv->string, "\n";
-- 
1.6.3.3