Initial revision

1 files changed, 44 insertions, 0 deletions

diff --git a/site_perl/Bill.pm b/site_perl/Bill.pm
new file mode 100644
index 000000000..4d7e059ed
--- /dev/null
+++ b/site_perl/Bill.pm
@@ -0,0 +1,44 @@
+package FS::Bill;
+
+use strict;
+use vars qw(@ISA);
+use FS::cust_main;
+
+@ISA = qw(FS::cust_main);
+
+warn "FS::Bill depriciated\n";
+
+=head1 NAME
+
+FS::Bill - Legacy stub
+
+=head1 SYNOPSIS
+
+The functionality of FS::Bill has been integrated into FS::cust_main.
+
+=head1 HISTORY
+
+ivan@voicenet.com 97-jul-24 - 25 - 28
+
+use Safe; evaluate all fees with perl (still on TODO list until I write
+some examples & test opmask to see if we can read db)
+%hash=$obj->hash later ivan@sisd.com 98-mar-13
+
+packages with no next bill date start at $time not time, this should
+eliminate the last of the problems with billing at a past date
+also rewrite the invoice priting logic not to print invoices for things
+that haven't happended yet and update $cust_bill->printed when we print
+so PAST DUE notices work, and s/date/_date/ 
+ivan@sisd.com 98-jun-4
+
+more logic for past due stuff - packages with no next bill date start
+at $cust_pkg->setup || $time ivan@sisd.com 98-jul-13
+
+moved a few things in collection logic; negative charges should work
+ivan@sisd.com 98-aug-6
+
+pod, moved everything to FS::cust_main ivan@sisd.com 98-sep-19
+
+=cut
+
+1;