From 384918b69425667bb3392491ad7bea51d18ada15 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 15 Apr 2016 15:35:11 +0200 Subject: [PATCH] Bug 7957: Make CSV header translatable --- C4/Serials/RoutingLists.pm | 11 ++++++++--- .../prog/en/modules/serials/csv/routinglist-header.tt | 1 + 2 files changed, 9 insertions(+), 3 deletions(-) create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/serials/csv/routinglist-header.tt diff --git a/C4/Serials/RoutingLists.pm b/C4/Serials/RoutingLists.pm index 9f7ad52..305df27 100644 --- a/C4/Serials/RoutingLists.pm +++ b/C4/Serials/RoutingLists.pm @@ -270,6 +270,7 @@ sub GetRoutingListAsCSV { require C4::Biblio; require C4::Serials; require C4::Members; + require C4::Templates; require Text::CSV::Encoded; my $csv = Text::CSV::Encoded->new( {encoding => "utf8" } ); @@ -279,9 +280,13 @@ sub GetRoutingListAsCSV { my $subscription = C4::Serials::GetSubscription($routinglist->{'subscriptionid'}); my $biblio = C4::Biblio::GetBiblio($subscription->{'biblionumber'}); - my @headers = ("Subscription title", "Routing list", qw(Surname Firstname Notes)); - $csv->combine(@headers); - $output .= $csv->string() . "\n"; + my $template = C4::Templates::gettemplate('serials/csv/routinglist-header.tt', + 'intranet', new CGI); + my $header_row = $template->output; + # Remove EOL if any, then add it back, so we are sure there is only + # one EOL character + chomp $header_row; + $output .= $header_row . "\n"; foreach (@{$routinglist->{borrowers}}) { my $member = C4::Members::GetMemberDetails($_); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/csv/routinglist-header.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/csv/routinglist-header.tt new file mode 100644 index 0000000..e3e36c4 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/csv/routinglist-header.tt @@ -0,0 +1 @@ +Subscription title,Routing list,Surname,Firstname,Notes -- 2.1.4