Lines 127-133
sub store {
Link Here
|
127 |
# Handle not null and default values for integers and dates |
127 |
# Handle not null and default values for integers and dates |
128 |
foreach my $col ( keys %{$columns_info} ) { |
128 |
foreach my $col ( keys %{$columns_info} ) { |
129 |
# Integers |
129 |
# Integers |
130 |
if ( _numeric_column_type( $columns_info->{$col}->{data_type} ) ) { |
130 |
if ( _numeric_column_type( $columns_info->{$col}->{data_type} ) |
|
|
131 |
or _decimal_column_type( $columns_info->{$col}->{data_type} ) |
132 |
) { |
131 |
# Has been passed but not a number, usually an empty string |
133 |
# Has been passed but not a number, usually an empty string |
132 |
my $value = $self->_result()->get_column($col); |
134 |
my $value = $self->_result()->get_column($col); |
133 |
if ( defined $value and not looks_like_number( $value ) ) { |
135 |
if ( defined $value and not looks_like_number( $value ) ) { |
134 |
- |
|
|