diff options
| -rw-r--r-- | FS/FS/contact.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm index 4a1fb39ba..b025892eb 100644 --- a/FS/FS/contact.pm +++ b/FS/FS/contact.pm @@ -2,6 +2,7 @@ package FS::contact; use base qw( FS::Record ); use strict; +use vars qw( $skip_fuzzyfiles ); use Scalar::Util qw( blessed ); use FS::Record qw( qsearch qsearchs dbh ); use FS::prospect_main; @@ -13,6 +14,8 @@ use FS::contact_email; use FS::queue; use FS::cust_pkg; +$skip_fuzzyfiles = 0; + =head1 NAME FS::contact - Object methods for contact records @@ -166,7 +169,7 @@ sub insert { } - #unless ( $import || $skip_fuzzyfiles ) { + unless ( $skip_fuzzyfiles ) { #unless ( $import || $skip_fuzzyfiles ) { #warn " queueing fuzzyfiles update\n" # if $DEBUG > 1; $error = $self->queue_fuzzyfiles_update; @@ -174,7 +177,7 @@ sub insert { $dbh->rollback if $oldAutoCommit; return "updating fuzzy search cache: $error"; } - #} + } if ( $self->selfservice_access ) { my $error = $self->send_reset_email( queue=>1 ); @@ -323,7 +326,7 @@ sub replace { } - #unless ( $import || $skip_fuzzyfiles ) { + unless ( $skip_fuzzyfiles ) { #unless ( $import || $skip_fuzzyfiles ) { #warn " queueing fuzzyfiles update\n" # if $DEBUG > 1; $error = $self->queue_fuzzyfiles_update; @@ -331,7 +334,7 @@ sub replace { $dbh->rollback if $oldAutoCommit; return "updating fuzzy search cache: $error"; } - #} + } if ( ( $old->selfservice_access eq '' && $self->selfservice_access && ! $self->_password |