Lines 120-126
sub add_prefs {
Link Here
|
120 |
for my $element (@$pref) { |
120 |
for my $element (@$pref) { |
121 |
if ( ref($element) eq 'HASH' ) { |
121 |
if ( ref($element) eq 'HASH' ) { |
122 |
while ( my ( $key, $value ) = each(%$element) ) { |
122 |
while ( my ( $key, $value ) = each(%$element) ) { |
123 |
next unless $key eq 'choices' or $key eq 'multiple'; |
123 |
next unless $key eq 'choices' or $key eq 'multiple' or $key eq 'multiple_sortable'; |
124 |
next unless ref($value) eq 'HASH'; |
124 |
next unless ref($value) eq 'HASH'; |
125 |
for my $ckey ( keys %$value ) { |
125 |
for my $ckey ( keys %$value ) { |
126 |
my $msgid = sprintf('%s#%s# %s', basename($file), $pref_name, $value->{$ckey}); |
126 |
my $msgid = sprintf('%s#%s# %s', basename($file), $pref_name, $value->{$ckey}); |
127 |
- |
|
|