still need to bless into FS::cust_main (for now)

[freeside.git] / bin / bill

diff --git a/bin/bill b/bin/bill
index 5c5be70..7b1e162 100755 (executable)
--- a/bin/bill
+++ b/bin/bill
@@ -76,6 +76,12 @@
 # s/suidsetup/adminsuidsetup/, s/FS::Search/FS::Record/, added some batch
 # exporting stuff (which still needs to be generalized) and removed &idiot
 # ivan@sisd.com 98-may-27
+#
+# $Log: bill,v $
+# Revision 1.3  1998-11-07 08:19:21  ivan
+#
+# still need to bless into FS::cust_main (for now)
+#
 
 # setup
 
@@ -85,7 +91,6 @@ use Date::Parse;
 use Getopt::Std;
 use FS::UID qw(adminsuidsetup swapuid);
 use FS::Record qw(qsearch qsearchs);
-use FS::Bill;
 
 my($batchfile)="/var/spool/freeside/batch";
 my($batchlock)="/var/spool/freeside/batch.lock";
@@ -118,7 +123,7 @@ foreach $cust_main (
 
   print "Billing customer #" . $cust_main->getfield('custnum') . "\n";
 
-  bless($cust_main,"FS::Bill");
+  bless($cust_main,"FS::cust_main");
 
   my($error);