Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 32353: Pick the default value for FK

Browse source 
Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Jonathan Druart 2022-11-25 13:17:46 +01:00 committed by Tomas Cohen Arazi
parent 4bf5bcc940
commit d766992f2b
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
t/lib/TestBuilder.pm
View file

@ -403,6 +403,11 @@ sub _buildColumnValue {
return;
}
# otherwise: no need to assign a value
} elsif( !exists $value->{$col_name}
&& exists $self->{default_values}{$source}{$col_name} ) {
my $v = $self->{default_values}{$source}{$col_name};
$v = &$v() if ref($v) eq 'CODE';
push @$retvalue, $v;
} elsif( $col_info->{is_foreign_key} || _should_be_fk($source,$col_name) ) {
if( exists $value->{$col_name} ) {
if( !defined $value->{$col_name} && !$col_info->{is_nullable} ) {
@ -426,10 +431,6 @@ sub _buildColumnValue {
return;
}
push @$retvalue, $value->{$col_name};
} elsif( exists $self->{default_values}{$source}{$col_name} ) {
my $v = $self->{default_values}{$source}{$col_name};
$v = &$v() if ref($v) eq 'CODE';
push @$retvalue, $v;
} else {
my $data_type = $col_info->{data_type};
$data_type =~ s| |_|;