• sections.html

    394 395  
    225 225 $updated{$oid}{$attr} = $value;
    226 226 }
    227 227 }
    228 warn Dumper \%updated;
    228 229 my %classes = map { $_->{class} => 1 } values %updated;
    229 230 foreach my $update_class ( keys %classes ) {
    230 231 my @ids;
    … …  
    244 245 foreach my $prop ( @props ) {
    245 246 my $attr = $prop->{attr};
    246 247 my $value = ref $fields && exists $fields->{$attr} ? $fields->{$attr} : undef;
    248 if ( $prop->{type} eq 'checkbox' ) {
    249 $value = $value ? 1 : undef;
    250 }
    247 251 if ( exists $prop->{db_type} ) {
    248 252 if ( $prop->{db_type} eq 'float' ) {
    249 253 for ( $value ) {
    … …  
    261 265 }
    262 266 }
    263 267 }
    264 if ( $prop->{type} eq 'checkbox' ) {
    265 $value = $value ? 1 : undef;
    266 }
    267 268
    268 269 $object->$attr($value);
    269 270 }