|
Lines 404-409
sub _buildColumnValue {
Link Here
|
| 404 |
return; |
404 |
return; |
| 405 |
} |
405 |
} |
| 406 |
# otherwise: no need to assign a value |
406 |
# otherwise: no need to assign a value |
|
|
407 |
} elsif( exists $self->{default_values}{$source}{$col_name} ) { |
| 408 |
my $v = $self->{default_values}{$source}{$col_name}; |
| 409 |
$v = &$v() if ref($v) eq 'CODE'; |
| 410 |
push @$retvalue, $v; |
| 407 |
} elsif( $col_info->{is_foreign_key} || _should_be_fk($source,$col_name) ) { |
411 |
} elsif( $col_info->{is_foreign_key} || _should_be_fk($source,$col_name) ) { |
| 408 |
if( exists $value->{$col_name} ) { |
412 |
if( exists $value->{$col_name} ) { |
| 409 |
if( !defined $value->{$col_name} && !$col_info->{is_nullable} ) { |
413 |
if( !defined $value->{$col_name} && !$col_info->{is_nullable} ) { |
|
Lines 427-436
sub _buildColumnValue {
Link Here
|
| 427 |
return; |
431 |
return; |
| 428 |
} |
432 |
} |
| 429 |
push @$retvalue, $value->{$col_name}; |
433 |
push @$retvalue, $value->{$col_name}; |
| 430 |
} elsif( exists $self->{default_values}{$source}{$col_name} ) { |
|
|
| 431 |
my $v = $self->{default_values}{$source}{$col_name}; |
| 432 |
$v = &$v() if ref($v) eq 'CODE'; |
| 433 |
push @$retvalue, $v; |
| 434 |
} else { |
434 |
} else { |
| 435 |
my $data_type = $col_info->{data_type}; |
435 |
my $data_type = $col_info->{data_type}; |
| 436 |
$data_type =~ s| |_|; |
436 |
$data_type =~ s| |_|; |
| 437 |
- |
|
|