use FS::contact_phone;
use FS::contact_email;
use FS::queue;
+use FS::cust_pkg;
=head1 NAME
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 ) {
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) = @_;
" AND ( disabled IS NULL OR disabled = '' )",
}) or return '';
-warn $contact_email;
-
$contact_email->contact;
}