3 %my($query) = $cgi->keywords;
6 %my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
7 %die "Can't find customer!\n" unless $cust_main;
9 %my $conf = new FS::Conf;
11 %my $error = $cust_main->bill(
16 % $error = $cust_main->apply_payments_and_credits
17 % || $cust_main->collect(
18 % #'invoice-time'=>$time,
19 % #'batch_card'=> 'yes',
20 % #'batch_card'=> 'no',
21 % #'report_badcard'=> 'yes',
22 % #'retry_card' => 'yes',
26 % #this is used only by cust_main::batch_card
27 % #need to pick & create an actual config
28 % #value if we're going to turn this on
29 % #("realtime-backend" doesn't exist,
30 % # "backend-realtime" is for something
31 % # entirely different)
32 % #'realtime' => $conf->exists('realtime-backend'),
43 % print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");