site_perl/Invoice.pm

   1 package FS::Invoice;
   2
   3 use strict;
   4 use vars qw(@ISA);
   5 use FS::cust_bill;
   6
   7 @ISA = qw(FS::cust_bill);
   8
   9 warn "FS::Invoice depriciated\n";
  10
  11 =head1 NAME
  12
  13 FS::Invoice - Legacy stub
  14
  15 =head1 SYNOPSIS
  16
  17 The functionality of FS::Invoice has been integrated in FS::cust_bill.
  18
  19 =head1 HISTORY
  20
  21 ivan@voicenet.com 97-jun-25 - 27
  22
  23 maybe should be changed to be OO-functions on $cust_bill objects?
  24 (instead of passing invnum, ugh).
  25
  26 ISA cust_bill and return inovice instead of passing filehandle
  27 ivan@sisd.com 98-mar-13
  28
  29 (add postscript output!)
  30
  31 close our kid when we're done ivan@sisd.com 98-jun-4
  32
  33 separated code which shuffled data from code which formatted.
  34 (so i could) fixed past due notices showing up when balance due =< 0
  35 return address comes from /var/spool/freeside/conf/address
  36 ivan@sisd.com 98-jul-2
  37
  38 pod ivan@sisd.com 98-sep-20something
  39
  40 s/ISA/@ISA/ in use vars ivan@sisd.com 98-sep-27
  41
  42 =cut
  43
  44 1;
  45