disabled
-=item invoice_dest
-
-empty, or 'Y' if email invoices should be sent to this contact
-
=back
=head1 METHODS
- classnum
- comment
- selfservice_access
+- invoice_dest
=cut
$self->custnum('');
my %link_hash = ();
- for (qw( classnum comment selfservice_access )) {
+ for (qw( classnum comment selfservice_access invoice_dest )) {
$link_hash{$_} = $self->get($_);
$self->$_('');
}
$self->custnum('');
my %link_hash = ();
- for (qw( classnum comment selfservice_access )) {
+ for (qw( classnum comment selfservice_access invoice_dest )) {
$link_hash{$_} = $self->get($_);
$self->$_('');
}
|| $self->ut_textn('_password')
|| $self->ut_enum('_password_encoding', [ '', 'bcrypt'])
|| $self->ut_enum('disabled', [ '', 'Y' ])
- || $self->ut_flag('invoice_dest')
;
return $error if $error;
$dest = $svc_acct->email;
}
- my $error = $cust_main->replace( [ $dest ] );
+ my $error = $cust_main->replace( invoicing_list => [ $dest ] );
if ( $error ) {
die "custnum $custnum, invoice destination $dest, creating contact: $error\n";
} # while $search->fetch
- unless ( FS::upgrade_journal->is_done('contact__DUPEMAIL') ) {
+ unless ( FS::upgrade_journal->is_done('contact_invoice_dest') ) {
foreach my $contact (qsearch('contact', {})) {
my $error = $contact->replace;
die $error if $error;
}
- FS::upgrade_journal->set_done('contact__DUPEMAIL');
+ FS::upgrade_journal->set_done('contact_invoice_dest');
}
}