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;
use FS::queue;
use FS::cust_pkg;
+$skip_fuzzyfiles = 0;
+
=head1 NAME
FS::contact - Object methods for contact records
}
- #unless ( $import || $skip_fuzzyfiles ) {
+ unless ( $skip_fuzzyfiles ) { #unless ( $import || $skip_fuzzyfiles ) {
#warn " queueing fuzzyfiles update\n"
# if $DEBUG > 1;
$error = $self->queue_fuzzyfiles_update;
$dbh->rollback if $oldAutoCommit;
return "updating fuzzy search cache: $error";
}
- #}
+ }
if ( $self->selfservice_access ) {
my $error = $self->send_reset_email( queue=>1 );
}
- #unless ( $import || $skip_fuzzyfiles ) {
+ unless ( $skip_fuzzyfiles ) { #unless ( $import || $skip_fuzzyfiles ) {
#warn " queueing fuzzyfiles update\n"
# if $DEBUG > 1;
$error = $self->queue_fuzzyfiles_update;
$dbh->rollback if $oldAutoCommit;
return "updating fuzzy search cache: $error";
}
- #}
+ }
if ( ( $old->selfservice_access eq '' && $self->selfservice_access
&& ! $self->_password
qsearchs('contact_class', { 'classnum' => $self->classnum } );
}
+sub firstlast {
+ my $self = shift;
+ $self->first . ' ' . $self->last;
+}
+
sub contact_classname {
my $self = shift;
my $contact_class = $self->contact_class or return '';