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

(-)a/misc/translator/LangInstaller.pm (-3 / +2 lines)
Lines 185-191 sub add_prefs { Link Here
185
        for my $element ( @$pref ) {
185
        for my $element ( @$pref ) {
186
            if ( ref( $element) eq 'HASH' ) {
186
            if ( ref( $element) eq 'HASH' ) {
187
                while ( my ($key, $value) = each(%$element) ) {
187
                while ( my ($key, $value) = each(%$element) ) {
188
                    next unless $key eq 'choices';
188
                    next unless $key eq 'choices' or $key eq 'multiple';
189
                    next unless ref($value) eq 'HASH';
189
                    next unless ref($value) eq 'HASH';
190
                    for my $ckey ( keys %$value ) {
190
                    for my $ckey ( keys %$value ) {
191
                        my $id = $self->{file} . "#$pref_name# " . $value->{$ckey};
191
                        my $id = $self->{file} . "#$pref_name# " . $value->{$ckey};
Lines 226-232 sub update_tab_prefs { Link Here
226
            my $element = $p->[$i];
226
            my $element = $p->[$i];
227
            if ( ref( $element) eq 'HASH' ) {
227
            if ( ref( $element) eq 'HASH' ) {
228
                while ( my ($key, $value) = each(%$element) ) {
228
                while ( my ($key, $value) = each(%$element) ) {
229
                    next unless $key eq 'choices';
229
                    next unless $key eq 'choices' or $key eq 'multiple';
230
                    next unless ref($value) eq 'HASH';
230
                    next unless ref($value) eq 'HASH';
231
                    for my $ckey ( keys %$value ) {
231
                    for my $ckey ( keys %$value ) {
232
                        my $id = $self->{file} . "#$pref_name# " . $value->{$ckey};
232
                        my $id = $self->{file} . "#$pref_name# " . $value->{$ckey};
233
- 

Return to bug 23452