X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Felements%2FApplicationCommon.html;h=5007319b80ea8961bb074277f4cc4eea5f4a0274;hp=b7501d46200c07013400bd1cd39f782cfc2c4715;hb=1fc8addc56f8daf12397da568eb1ac1b27fd3984;hpb=57bb423fe457ba4e13726877f53bcdf944f828f8 diff --git a/httemplate/edit/process/elements/ApplicationCommon.html b/httemplate/edit/process/elements/ApplicationCommon.html index b7501d462..5007319b8 100644 --- a/httemplate/edit/process/elements/ApplicationCommon.html +++ b/httemplate/edit/process/elements/ApplicationCommon.html @@ -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 = ();