[freeside-commits] freeside/FS/FS Schema.pm, 1.134, 1.135 cust_main.pm, 1.420, 1.421

Ivan,,, ivan at wavetail.420.am
Mon Apr 20 09:57:25 PDT 2009


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv27427

Modified Files:
	Schema.pm cust_main.pm 
Log Message:
add cust_main.archived field, skip billing if Y, RT#4412

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -d -r1.134 -r1.135
--- Schema.pm	17 Apr 2009 19:50:10 -0000	1.134
+++ Schema.pm	20 Apr 2009 16:57:22 -0000	1.135
@@ -678,6 +678,7 @@
         'spool_cdr','char', 'NULL', 1, '', '', 
         'squelch_cdr','char', 'NULL', 1, '', '', 
         'invoice_terms', 'varchar', 'NULL', $char_d, '', '',
+        'archived', 'char', 'NULL', 1, '', '',
       ],
       'primary_key' => 'custnum',
       'unique' => [ [ 'agentnum', 'agent_custid' ] ],
@@ -696,6 +697,7 @@
                    [ 'ship_county' ], [ 'ship_state' ], [ 'ship_country' ],
                    [ 'ship_zip' ],
                    [ 'ship_daytime' ], [ 'ship_night' ], [ 'ship_fax' ],
+                   [ 'archived' ],
                  ],
     },
 

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.420
retrieving revision 1.421
diff -u -d -r1.420 -r1.421
--- cust_main.pm	14 Apr 2009 17:15:20 -0000	1.420
+++ cust_main.pm	20 Apr 2009 16:57:23 -0000	1.421
@@ -1774,7 +1774,7 @@
     $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);
   }



More information about the freeside-commits mailing list