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