X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_contact.pm;h=adad46e9e18eb9507061fbe4aea1ae394c91bfff;hb=60c34bd328a404008313d4ab78d25152ebdb9226;hp=6f899d83f8cedcd832f7d4e8776f379c78219105;hpb=aeb90ade381fc3d5477db0334048c2af623fccfe;p=freeside.git

diff --git a/FS/FS/cust_contact.pm b/FS/FS/cust_contact.pm
index 6f899d83f..adad46e9e 100644
--- a/FS/FS/cust_contact.pm
+++ b/FS/FS/cust_contact.pm
@@ -55,6 +55,15 @@ comment
 
 empty or Y
 
+=item invoice_dest
+
+'Y' if the customer should get invoices sent to this address, null if not
+
+=item message_dest
+
+'Y' if contact should get non-invoice email messages sent to this address,
+NULL if not
+
 =back
 
 =head1 METHODS
@@ -102,7 +111,7 @@ and replace methods.
 sub check {
   my $self = shift;
 
-  if ( $self->selfservice_access eq 'R' ) {
+  if ( $self->selfservice_access eq 'R' || $self->selfservice_access eq 'E' || $self->selfservice_access eq 'P') {
     $self->selfservice_access('Y');
     $self->_resend('Y');
   }
@@ -114,6 +123,8 @@ sub check {
     || $self->ut_numbern('classnum')
     || $self->ut_textn('comment')
     || $self->ut_enum('selfservice_access', [ '', 'Y' ])
+    || $self->ut_flag('invoice_dest')
+    || $self->ut_flag('message_dest')
   ;
   return $error if $error;
 
@@ -143,4 +154,3 @@ L<FS::contact>, L<FS::cust_main>, L<FS::Record>
 =cut
 
 1;
-