% my $query = $m->scomp('/elements/create_uri_query');
<% $cgi->redirect(popurl(2). $opt{error_redirect}. "?$query") %>
%} else {
-<% header("$src_thing application$to sucessful") %>
+<& /elements/header-popup.html, "$src_thing application$to successful" &>
<SCRIPT TYPE="text/javascript">
topreload();
</SCRIPT>
my $custnum = $cust_main->custnum;
my @subnames = grep { /.+/ } map { /^subnum(\d+)$/ ? $1 : '' } $cgi->param;
-my @subitems = map { [ $cgi->param("subnum$_"), $cgi->param("subamount$_"), $cgi->param("taxXlocationnum$_") ] }
- @subnames;
+my @subitems = map { [ scalar($cgi->param("subnum$_")),
+ scalar($cgi->param("subamount$_")),
+ scalar($cgi->param("taxXlocationnum$_"))
+ ]
+ }
+ @subnames;
{ local $^W = 0; @subitems = grep { $_->[1] + 0 } @subitems; }
my %options = ();
my $new;
# $new = new FS::cust_refund ( {
# 'reason' => 'Refunding payment', #enter reason in UI
-# 'refund' => $cgi->param('amount'),
+# 'refund' => scalar($cgi->param('amount')),
# 'payby' => 'BILL',
-# #'_date' => $cgi->param('_date'),
+# #'_date' => scalar($cgi->param('_date')),
# 'payinfo' => 'Cash', #enter payinfo in UI
# 'paynum' => $paynum,
# } );