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

(-)a/misc/translator/xgettext-pref (-3 / +3 lines)
Lines 118-134 sub add_prefs { Link Here
118
            }
118
            }
119
        }
119
        }
120
        for my $element (@$pref) {
120
        for my $element (@$pref) {
121
            my $new_context = $pref_name ? "$context > $pref_name" : $context;
121
            if ( ref($element) eq 'HASH' ) {
122
            if ( ref($element) eq 'HASH' ) {
122
                while ( my ( $key, $value ) = each(%$element) ) {
123
                while ( my ( $key, $value ) = each(%$element) ) {
123
                    next unless $key eq 'choices' or $key eq 'multiple';
124
                    next unless $key eq 'choices' or $key eq 'multiple';
124
                    next unless ref($value) eq 'HASH';
125
                    next unless ref($value) eq 'HASH';
125
                    for my $ckey ( keys %$value ) {
126
                    for my $ckey ( keys %$value ) {
126
                        add_po( $file, "$context > $pref_name", $value->{$ckey} );
127
                        add_po( $file, $new_context, $value->{$ckey} );
127
                    }
128
                    }
128
                }
129
                }
129
            }
130
            }
130
            elsif ($element) {
131
            elsif ($element) {
131
                add_po( $file, "$context > $pref_name", $element );
132
                add_po( $file, $new_context, $element );
132
            }
133
            }
133
        }
134
        }
134
    }
135
    }
135
- 

Return to bug 26547