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