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($_); |