|
Lines 627-633
sub generate_patron_attributes {
Link Here
|
| 627 |
push (@$feedback, { feedback => 1, name => 'attribute string', value => $string }); |
627 |
push (@$feedback, { feedback => 1, name => 'attribute string', value => $string }); |
| 628 |
return [] unless $string; # Unit tests want the feedback, is it really needed? |
628 |
return [] unless $string; # Unit tests want the feedback, is it really needed? |
| 629 |
|
629 |
|
| 630 |
my $csv = Text::CSV->new( { binary => 1, formula => "empty" } ); # binary needed for non-ASCII Unicode |
630 |
my $csv = Text::CSV->new( { binary => 1 } ); # binary needed for non-ASCII Unicode |
| 631 |
my $ok = $csv->parse($string); # parse field again to get subfields! |
631 |
my $ok = $csv->parse($string); # parse field again to get subfields! |
| 632 |
my @list = $csv->fields(); |
632 |
my @list = $csv->fields(); |
| 633 |
my @patron_attributes = |
633 |
my @patron_attributes = |
| 634 |
- |
|
|