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