diff options
author | ivan <ivan> | 2008-07-18 22:27:14 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-07-18 22:27:14 +0000 |
commit | c6b93624666e16d81e3cbf0503fac648df776b0b (patch) | |
tree | 9f17cb4c580c5e0f27b316de38fa74f952e7f393 | |
parent | e0ec47f156e93fbb32050f94b932b3bd2ad9d0c6 (diff) |
add no_check_foreign kludge for gigantic rate imports
-rw-r--r-- | FS/FS/Record.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index c2b128463..28c629562 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -3,7 +3,9 @@ package FS::Record; use strict; use vars qw( $AUTOLOAD @ISA @EXPORT_OK $DEBUG $conf $me - %virtual_fields_cache $nowarn_identical $no_update_diff ); + %virtual_fields_cache + $nowarn_identical $no_update_diff $no_check_foreign + ); use Exporter; use Carp qw(carp cluck croak confess); use Scalar::Util qw( blessed ); @@ -33,6 +35,7 @@ $me = '[FS::Record]'; $nowarn_identical = 0; $no_update_diff = 0; +$no_check_foreign = 0; my $rsa_module; my $rsa_loaded; @@ -1902,6 +1905,7 @@ on the column first. sub ut_foreign_key { my( $self, $field, $table, $foreign ) = @_; + return '' if $no_check_foreign; qsearchs($table, { $foreign => $self->getfield($field) }) or return "Can't find ". $self->table. ".$field ". $self->getfield($field). " in $table.$foreign"; |