3 # $Id: bill.cgi,v 1.2 1998-12-17 09:12:41 ivan Exp $
5 # s/FS:Search/FS::Record/ and cgisuidsetup($cgi) ivan@sisd.com 98-mar-13
7 # Changes to allow page to work at a relative position in server
8 # bmccane@maxbaud.net 98-apr-3
11 # Revision 1.2 1998-12-17 09:12:41 ivan
12 # s/CGI::(Request|Base)/CGI.pm/;
17 use CGI::Carp qw(fatalsToBrowser);
18 use FS::UID qw(cgisuidsetup);
19 use FS::CGI qw(popurl eidiot);
20 use FS::Record qw(qsearchs);
27 $cgi->query_string =~ /^(\d*)$/;
29 my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum});
30 die "Can't find customer!\n" unless $cust_main;
34 $error = $cust_main->bill(
37 &eidiot($error) if $error;
39 $error = $cust_main->collect(
40 # 'invoice-time'=>$time,
41 # 'batch_card'=> 'yes',
43 'report_badcard'=> 'yes',
45 &eidiot($error) if $error;
47 print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum#history");