From: ivan <ivan>
Date: Mon, 20 Apr 2009 16:58:31 +0000 (+0000)
Subject: add cust_main.archived field, skip billing if Y, RT#4412
X-Git-Tag: root_of_svc_elec_features~1253
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d1f55c07f2a8a0d0e62c7141807803cf1c85f528

add cust_main.archived field, skip billing if Y, RT#4412
---

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index bce04e6f0..0aed3ccbe 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -687,6 +687,7 @@ sub tables_hashref {
                    [ 'agentnum' ], [ 'refnum' ], [ 'custbatch' ],
                    [ 'referral_custnum' ],
                    [ 'payby' ], [ 'paydate' ],
+                   [ 'archived' ],
                    #billing
                    [ 'last' ], [ 'company' ],
                    [ 'county' ], [ 'state' ], [ 'country' ],
@@ -697,7 +698,6 @@ sub tables_hashref {
                    [ 'ship_county' ], [ 'ship_state' ], [ 'ship_country' ],
                    [ 'ship_zip' ],
                    [ 'ship_daytime' ], [ 'ship_night' ], [ 'ship_fax' ],
-                   [ 'archived' ],
                  ],
     },
 
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index a62987b32..3296cf543 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1774,7 +1774,7 @@ sub check {
     $self->payname($1);
   }
 
-  foreach my $flag (qw( tax spool_cdr squelch_cdr )) {
+  foreach my $flag (qw( tax spool_cdr squelch_cdr archived )) {
     $self->$flag() =~ /^(Y?)$/ or return "Illegal $flag: ". $self->$flag();
     $self->$flag($1);
   }