From d1f55c07f2a8a0d0e62c7141807803cf1c85f528 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 20 Apr 2009 16:58:31 +0000
Subject: [PATCH] add cust_main.archived field, skip billing if Y, RT#4412

---
 FS/FS/Schema.pm    | 2 +-
 FS/FS/cust_main.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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);
   }
-- 
2.11.0