X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Felements%2FApplicationCommon.html;h=5007319b80ea8961bb074277f4cc4eea5f4a0274;hp=ea2462aed48fa3d3943150d5dae5b34821c61ff5;hb=HEAD;hpb=4d5e45b24200386a7fc47f2cd69949e82e4bc9c3 diff --git a/httemplate/edit/process/elements/ApplicationCommon.html b/httemplate/edit/process/elements/ApplicationCommon.html index ea2462aed..5007319b8 100644 --- a/httemplate/edit/process/elements/ApplicationCommon.html +++ b/httemplate/edit/process/elements/ApplicationCommon.html @@ -24,7 +24,7 @@ Examples: % my $query = $m->scomp('/elements/create_uri_query'); <% $cgi->redirect(popurl(2). $opt{error_redirect}. "?$query") %> %} else { -<& /elements/header-popup.html, "$src_thing application$to sucessful" &> +<& /elements/header-popup.html, "$src_thing application$to successful" &> @@ -55,8 +55,12 @@ my $cust_main = qsearchs('cust_main', { 'custnum' => $src->custnum } ) 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 = (); @@ -69,9 +73,9 @@ my $dbh = dbh; 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, # } );