fix more bugs

[freeside.git] / httemplate / misc / bill.cgi

diff --git a/httemplate/misc/bill.cgi b/httemplate/misc/bill.cgi
index d09fc45..43c7c57 100755 (executable)
--- a/httemplate/misc/bill.cgi
+++ b/httemplate/misc/bill.cgi
@@ -1,29 +1,5 @@
 <%
-#
-# $Id: bill.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $
-#
-# s/FS:Search/FS::Record/ and cgisuidsetup($cgi) ivan@sisd.com 98-mar-13
-#
-# Changes to allow page to work at a relative position in server
-#       bmccane@maxbaud.net     98-apr-3
-#
-# $Log: bill.cgi,v $
-# Revision 1.1  2001-07-30 07:36:04  ivan
-# templates!!!
-#
-# Revision 1.5  1999/08/12 04:32:21  ivan
-# hidecancelledcustomers
-#
-# Revision 1.4  1999/01/19 05:14:02  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.3  1998/12/23 03:01:13  ivan
-# $cgi->keywords instead of $cgi->query_string
-#
-# Revision 1.2  1998/12/17 09:12:41  ivan
-# s/CGI::(Request|Base)/CGI.pm/;
-#
+#<!-- $Id: bill.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $query $custnum $cust_main $error );
@@ -49,6 +25,9 @@ $error = $cust_main->bill(
                          );
 &eidiot($error) if $error;
 
+$cust_main->apply_payments;
+$cust_main->apply_credits;
+
 $error = $cust_main->collect(
 #                             'invoice-time'=>$time,
 #                             'batch_card'=> 'yes',