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