diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-09-02 10:16:12 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-09-02 10:16:12 -0700 |
commit | b95c330fd8e0acde52b6743274fa003f821a84ef (patch) | |
tree | 1460f10dbf39a7e266220933650e276ff823c606 /FS/FS/Record.pm | |
parent | 654cdedcfe361fc07669a5f9d1e094b8d26a4d39 (diff) |
fix new installs vs. FKs, RT#13971
Diffstat (limited to 'FS/FS/Record.pm')
-rw-r--r-- | FS/FS/Record.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 2005756..8f75734 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -1043,7 +1043,10 @@ sub fk_methods { my $method = ''; if ( scalar( @{$fk->columns} ) == 1 ) { - if ( ! @{$fk->references} || $fk->columns->[0] eq $fk->references->[0] ){ + if ( ! defined($fk->references) + || ! @{$fk->references} + || $fk->columns->[0] eq $fk->references->[0] + ) { $method = $fk->table; } else { #some sort of hint in the table.pm or schema for methods not named @@ -1074,7 +1077,10 @@ sub fk_methods { my $method = ''; if ( scalar( @{$fk->columns} ) == 1 ) { - if ( ! @{$fk->references} || $fk->columns->[0] eq $fk->references->[0] ){ + if ( ! defined($fk->references) + || ! @{$fk->references} + || $fk->columns->[0] eq $fk->references->[0] + ) { $method = $f_table; } else { #some sort of hint in the table.pm or schema for methods not named |