diff options
| -rw-r--r-- | FS/FS/Record.pm | 2 | ||||
| -rw-r--r-- | FS/FS/prospect_main.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 765880e5e..781230fad 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -3093,7 +3093,7 @@ on the column first. sub ut_foreign_key { my( $self, $field, $table, $foreign ) = @_; - return '' if $no_check_foreign; + return $self->ut_number($field) if $no_check_foreign; qsearchs($table, { $foreign => $self->getfield($field) }) or return "Can't find ". $self->table. ".$field ". $self->getfield($field). " in $table.$foreign"; diff --git a/FS/FS/prospect_main.pm b/FS/FS/prospect_main.pm index 79b3f6748..f30508d34 100644 --- a/FS/FS/prospect_main.pm +++ b/FS/FS/prospect_main.pm @@ -243,8 +243,8 @@ sub check { my $error = $self->ut_numbern('prospectnum') - || $self->ut_foreign_key( 'agentnum', 'agent', 'agentnum' ) - || $self->ut_foreign_key( 'refnum', 'part_referral', 'refnum' ) + || $self->ut_foreign_key( 'agentnum', 'agent', 'agentnum' ) + || $self->ut_foreign_keyn( 'refnum', 'part_referral', 'refnum' ) || $self->ut_textn('company') ; return $error if $error; |