site_perl/Bill.pm

   1 package FS::Bill;
   2
   3 use strict;
   4 use vars qw(@ISA);
   5 use FS::cust_main;
   6
   7 @ISA = qw(FS::cust_main);
   8
   9 warn "FS::Bill depriciated\n";
  10
  11 =head1 NAME
  12
  13 FS::Bill - Legacy stub
  14
  15 =head1 SYNOPSIS
  16
  17 The functionality of FS::Bill has been integrated into FS::cust_main.
  18
  19 =head1 HISTORY
  20
  21 ivan@voicenet.com 97-jul-24 - 25 - 28
  22
  23 use Safe; evaluate all fees with perl (still on TODO list until I write
  24 some examples & test opmask to see if we can read db)
  25 %hash=$obj->hash later ivan@sisd.com 98-mar-13
  26
  27 packages with no next bill date start at $time not time, this should
  28 eliminate the last of the problems with billing at a past date
  29 also rewrite the invoice priting logic not to print invoices for things
  30 that haven't happended yet and update $cust_bill->printed when we print
  31 so PAST DUE notices work, and s/date/_date/
  32 ivan@sisd.com 98-jun-4
  33
  34 more logic for past due stuff - packages with no next bill date start
  35 at $cust_pkg->setup || $time ivan@sisd.com 98-jul-13
  36
  37 moved a few things in collection logic; negative charges should work
  38 ivan@sisd.com 98-aug-6
  39
  40 pod, moved everything to FS::cust_main ivan@sisd.com 98-sep-19
  41
  42 =cut
  43
  44 1;