|
Lines 61-80
for my $role_node ( @results ) {
Link Here
|
| 61 |
: ($v); |
61 |
: ($v); |
| 62 |
for my $node ( @nodes ) { |
62 |
for my $node ( @nodes ) { |
| 63 |
while ( ( $k, $v ) = each %$node ) { |
63 |
while ( ( $k, $v ) = each %$node ) { |
| 64 |
given ( $k ) { |
64 |
if ( $k eq 'roleName' ) { |
| 65 |
when ( "roleName" ) { |
65 |
$role_name = $v; |
| 66 |
$role_name = $v; |
66 |
$role_data->{role_name} = $role_name; |
| 67 |
$role_data->{role_name} = $role_name; |
67 |
} |
| 68 |
} |
68 |
elsif ( $k eq 'count' ) { |
| 69 |
when ( "count" ) { |
69 |
$role_data->{count} = $v; |
| 70 |
$role_data->{count} = $v; |
70 |
} |
| 71 |
} |
71 |
elsif ( $k eq 'doc' ) { |
| 72 |
when ( "doc" ) { |
72 |
push @{ $role_data->{docs} }, $v; |
| 73 |
push @{ $role_data->{docs} }, $v; |
73 |
} |
| 74 |
} |
74 |
else { |
| 75 |
default { |
75 |
# unimarcCode and marc21Code |
| 76 |
# unimarcCode and marc21Code |
|
|
| 77 |
} |
| 78 |
} |
76 |
} |
| 79 |
} |
77 |
} |
| 80 |
} |
78 |
} |
| 81 |
- |
|
|