|
Lines 538-544
sub generate_patron_attributes {
Link Here
|
| 538 |
my $ok = $csv->parse($string); # parse field again to get subfields! |
538 |
my $ok = $csv->parse($string); # parse field again to get subfields! |
| 539 |
my @list = $csv->fields(); |
539 |
my @list = $csv->fields(); |
| 540 |
my @patron_attributes = |
540 |
my @patron_attributes = |
| 541 |
sort { $a->{code} cmp $b->{code} || $a->{value} cmp $b->{value} } |
541 |
sort { $a->{code} cmp $b->{code} || $a->{attribute} cmp $b->{attribute} } |
| 542 |
map { |
542 |
map { |
| 543 |
my @arr = split /:/, $_, 2; |
543 |
my @arr = split /:/, $_, 2; |
| 544 |
{ code => $arr[0], attribute => $arr[1] } |
544 |
{ code => $arr[0], attribute => $arr[1] } |
| 545 |
- |
|
|