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::contact_phone;
use FS::contact_email;
use FS::queue;
+use FS::cust_pkg;
+
+$skip_fuzzyfiles = 0;
=head1 NAME
}
- #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 );
local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
+ foreach my $cust_pkg ( $self->cust_pkg ) {
+ $cust_pkg->contactnum('');
+ my $error = $cust_pkg->replace;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+
foreach my $object ( $self->contact_phone, $self->contact_email ) {
my $error = $object->delete;
if ( $error ) {
}
- #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 '';
qsearchs('cust_main', { 'custnum' => $self->custnum } );
}
+sub cust_pkg {
+ my $self = shift;
+ qsearch('cust_pkg', { 'contactnum' => $self->contactnum } );
+}
+
+
sub by_selfservice_email {
my($class, $email) = @_;