projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
followup : auto_truncation 3287252c0
[koha.git]
/
labels
/
label-print-csv.pl
diff --git
a/labels/label-print-csv.pl
b/labels/label-print-csv.pl
index
36c9903
..
be29afa
100755
(executable)
--- a/
labels/label-print-csv.pl
+++ b/
labels/label-print-csv.pl
@@
-37,9
+37,7
@@
my $csv = Text::CSV_XS->new();
my @str_fields = get_text_fields($conf_data->{'id'}, 'codes' );
for my $item (@resultsloop) {
my $record = GetMarcBiblio($item->{biblionumber});
my @str_fields = get_text_fields($conf_data->{'id'}, 'codes' );
for my $item (@resultsloop) {
my $record = GetMarcBiblio($item->{biblionumber});
- my @datafields = ($conf_data->{'formatstring'}) ?
- map { C4::Labels::GetBarcodeData($_->{'code'},$item,$record) } @str_fields
- : map { $_->{'code'} } @str_fields ;
+ my @datafields = map { C4::Labels::GetBarcodeData($_->{'code'},$item,$record) } @str_fields ;
my $csvout ;
if($csv->combine(@datafields)) {
$csvout = $csv->string();
my $csvout ;
if($csv->combine(@datafields)) {
$csvout = $csv->string();