View | Details | Raw Unified | Return to bug 7957
Collapse All | Expand All

(-)a/C4/Serials/RoutingLists.pm (-3 / +8 lines)
Lines 270-275 sub GetRoutingListAsCSV { Link Here
270
    require C4::Biblio;
270
    require C4::Biblio;
271
    require C4::Serials;
271
    require C4::Serials;
272
    require C4::Members;
272
    require C4::Members;
273
    require C4::Templates;
273
    require Text::CSV::Encoded;
274
    require Text::CSV::Encoded;
274
275
275
    my $csv = Text::CSV::Encoded->new( {encoding => "utf8" } );
276
    my $csv = Text::CSV::Encoded->new( {encoding => "utf8" } );
Lines 279-287 sub GetRoutingListAsCSV { Link Here
279
    my $subscription = C4::Serials::GetSubscription($routinglist->{'subscriptionid'});
280
    my $subscription = C4::Serials::GetSubscription($routinglist->{'subscriptionid'});
280
    my $biblio = C4::Biblio::GetBiblio($subscription->{'biblionumber'});
281
    my $biblio = C4::Biblio::GetBiblio($subscription->{'biblionumber'});
281
282
282
    my @headers = ("Subscription title", "Routing list", qw(Surname Firstname Notes));
283
    my $template = C4::Templates::gettemplate('serials/csv/routinglist-header.tt',
283
    $csv->combine(@headers);
284
        'intranet', new CGI);
284
    $output .= $csv->string() . "\n";
285
    my $header_row = $template->output;
286
    # Remove EOL if any, then add it back, so we are sure there is only
287
    # one EOL character
288
    chomp $header_row;
289
    $output .= $header_row . "\n";
285
290
286
    foreach (@{$routinglist->{borrowers}}) {
291
    foreach (@{$routinglist->{borrowers}}) {
287
        my $member = C4::Members::GetMemberDetails($_);
292
        my $member = C4::Members::GetMemberDetails($_);
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/csv/routinglist-header.tt (-1 / +1 lines)
Line 0 Link Here
0
- 
1
Subscription title,Routing list,Surname,Firstname,Notes

Return to bug 7957