View | Details | Raw Unified | Return to bug 8992
Collapse All | Expand All

(-)a/opac/opac-idref.pl (-15 / +12 lines)
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
- 

Return to bug 8992