|
Lines 419-425
if ( $op eq 'cud-do' ) {
Link Here
|
| 419 |
my $i = 0; |
419 |
my $i = 0; |
| 420 |
for my $code (@attributes) { |
420 |
for my $code (@attributes) { |
| 421 |
push @{ $attributes->{$code}->{values} }, shift @attr_values; # Handling repeatables |
421 |
push @{ $attributes->{$code}->{values} }, shift @attr_values; # Handling repeatables |
| 422 |
$attributes->{$code}->{disabled} = grep { $_ eq sprintf( "attr%s_value", ++$i ) } @disabled; |
422 |
$attributes->{$code}->{disabled} = grep { $_ eq sprintf( "attr%s_value", $i++ ) } @disabled; |
| 423 |
} |
423 |
} |
| 424 |
|
424 |
|
| 425 |
for my $code ( keys %$attributes ) { |
425 |
for my $code ( keys %$attributes ) { |
| 426 |
- |
|
|