X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2Fcust_bill.pm;fp=site_perl%2Fcust_bill.pm;h=455fc2d4fd939ae5854da190e3c928e5fa201070;hb=0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3;hp=bc942423360f74cdcda2198a29f4d19ec232357c;hpb=f6ef3dec7840be2e7ac7c39bed32a7ea68425b2d;p=freeside.git diff --git a/site_perl/cust_bill.pm b/site_perl/cust_bill.pm index bc9424233..455fc2d4f 100644 --- a/site_perl/cust_bill.pm +++ b/site_perl/cust_bill.pm @@ -8,9 +8,11 @@ use FS::Record qw(fields qsearch qsearchs); @ISA = qw(FS::Record Exporter); -$conf = new FS::Conf; - -($add1,$add2,$add3,$add4) = $conf->config('address'); +#ask FS::UID to run this stuff for us later +$FS::UID::callback{'FS::cust_bill'} = sub { + $conf = new FS::Conf; + ( $add1, $add2, $add3, $add4 ) = $conf->config('address'); +}; =head1 NAME @@ -490,7 +492,11 @@ charges can be negative ivan@sisd.com 98-jul-13 pod, ingegrate with FS::Invoice ivan@sisd.com 98-sep-20 $Log: cust_bill.pm,v $ -Revision 1.2 1998-11-07 10:24:24 ivan +Revision 1.3 1998-11-13 09:56:53 ivan +change configuration file layout to support multiple distinct databases (with +own set of config files, export, etc.) + +Revision 1.2 1998/11/07 10:24:24 ivan don't use depriciated FS::Bill and FS::Invoice, other miscellania