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 |
- |
|
|