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