diff options
Diffstat (limited to 'httemplate/edit')
| -rwxr-xr-x | httemplate/edit/cust_main.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/edit/part_pkg.cgi | 2 | ||||
| -rw-r--r-- | httemplate/edit/process/access_user.html | 2 | ||||
| -rw-r--r-- | httemplate/edit/process/elements/ApplicationCommon.html | 4 | ||||
| -rw-r--r-- | httemplate/edit/process/elements/svc_Common.html | 2 | ||||
| -rw-r--r-- | httemplate/edit/process/part_event.html | 8 | ||||
| -rw-r--r-- | httemplate/edit/process/sched_item.html | 4 | ||||
| -rwxr-xr-x | httemplate/edit/process/svc_acct.cgi | 4 | ||||
| -rw-r--r-- | httemplate/edit/quick-charge.html | 6 |
9 files changed, 19 insertions, 16 deletions
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index 4399c4348..d84679d4e 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -259,7 +259,8 @@ if ( $cgi->param('error') ) { unless $curuser->access_right($custnum ? 'Edit customer' : 'New customer'); @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') ); - $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid'); + $cust_main->setfield( 'paid' => scalar($cgi->param('paid')) ) + if $cgi->param('paid'); $ss = $cust_main->ss; # don't mask an entered value on errors $stateid = $cust_main->stateid; # don't mask an entered value on errors $payinfo = $cust_main->payinfo; # don't mask an entered value on errors diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi index 84e74f639..641366b65 100755 --- a/httemplate/edit/part_pkg.cgi +++ b/httemplate/edit/part_pkg.cgi @@ -559,7 +559,7 @@ my $clone_callback = sub { if ( $cgi->param('pkgnum') ) { - my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cgi->param('pkgnum') } ); + my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => scalar($cgi->param('pkgnum')) } ); $object->agentnum( $cust_pkg->cust_main->agentnum ); $opt->{action} = 'Custom'; diff --git a/httemplate/edit/process/access_user.html b/httemplate/edit/process/access_user.html index 3a5d95198..c884a5208 100644 --- a/httemplate/edit/process/access_user.html +++ b/httemplate/edit/process/access_user.html @@ -27,7 +27,7 @@ if ( FS::Conf->new->exists('disable_acl_changes') ) { sub precheck_callback { my $cgi = shift; - my $o = FS::access_user->new({username => $cgi->param('username')}); + my $o = FS::access_user->new({username => scalar($cgi->param('username'))}); if( $o->is_system_user and !$cgi->param('usernum') ) { $cgi->param('username',''); return "username '".$o->username."' reserved for system account." diff --git a/httemplate/edit/process/elements/ApplicationCommon.html b/httemplate/edit/process/elements/ApplicationCommon.html index a73b1bccd..633392990 100644 --- a/httemplate/edit/process/elements/ApplicationCommon.html +++ b/httemplate/edit/process/elements/ApplicationCommon.html @@ -69,9 +69,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, # } ); diff --git a/httemplate/edit/process/elements/svc_Common.html b/httemplate/edit/process/elements/svc_Common.html index ca336a126..504ded031 100644 --- a/httemplate/edit/process/elements/svc_Common.html +++ b/httemplate/edit/process/elements/svc_Common.html @@ -26,7 +26,7 @@ my $args_callback = sub { or die "svcpart required"; if ( $part_svc->has_router ) { my $router = FS::router->new({ - map { $_ => $cgi->param("router_$_") } + map { $_ => scalar($cgi->param("router_$_")) } qw( routernum routername blocknum ) }); if ($router->blocknum and length($router->routername) == 0) { diff --git a/httemplate/edit/process/part_event.html b/httemplate/edit/process/part_event.html index 0293af886..6c6249cc1 100644 --- a/httemplate/edit/process/part_event.html +++ b/httemplate/edit/process/part_event.html @@ -81,7 +81,7 @@ 'precheck_callback' => sub { my $cgi = shift; my $action = $cgi->param('action') or return; - my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => $cgi->param($_) } + my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => scalar($cgi->param($_)) } grep { /^$action\./ } $cgi->param; if ( exists($actionfields{'reasonnum'}) and length($actionfields{'reasonnum'}) == 0 ) { @@ -99,8 +99,10 @@ next unless $cgi->param($1) eq 'balance_age'; my $errstr = FS::part_event::Condition::balance_age-> - check_options( { age => $cgi->param($param), - age_units => $cgi->param("${param}_units") } ); + check_options( { age => scalar($cgi->param($param)), + age_units => scalar($cgi->param("${param}_units")), + } + ); return $errstr if $errstr; } diff --git a/httemplate/edit/process/sched_item.html b/httemplate/edit/process/sched_item.html index 7731a35b9..335f81360 100644 --- a/httemplate/edit/process/sched_item.html +++ b/httemplate/edit/process/sched_item.html @@ -21,8 +21,8 @@ foreach my $wday (0..6) { push @sched_avail, new FS::sched_avail { 'itemnum' => $itemnum, 'wday' => $wday, - 'stime' => $cgi->param("sched_avail$wday".'_stime'), - 'etime' => $cgi->param("sched_avail$wday".'_etime'), + 'stime' => scalar($cgi->param("sched_avail$wday".'_stime')), + 'etime' => scalar($cgi->param("sched_avail$wday".'_etime')), }; } } diff --git a/httemplate/edit/process/svc_acct.cgi b/httemplate/edit/process/svc_acct.cgi index d81eaecb9..12e84cc47 100755 --- a/httemplate/edit/process/svc_acct.cgi +++ b/httemplate/edit/process/svc_acct.cgi @@ -64,7 +64,7 @@ my $error = ''; my $part_svc = $svcnum ? $old->part_svc : qsearchs( 'part_svc', - { 'svcpart' => $cgi->param('svcpart') } + { 'svcpart' => scalar($cgi->param('svcpart')) } ); # google captcha auth @@ -117,7 +117,7 @@ if ( ! $error ) { if ( $part_svc->has_router ) { my $router = FS::router->new({ - map { $_ => $cgi->param("router_$_") } + map { $_ => scalar($cgi->param("router_$_")) } qw( routernum routername blocknum ) }); if (length($router->routername) == 0) { diff --git a/httemplate/edit/quick-charge.html b/httemplate/edit/quick-charge.html index 379aaaea4..2f70bd790 100644 --- a/httemplate/edit/quick-charge.html +++ b/httemplate/edit/quick-charge.html @@ -306,11 +306,11 @@ function bill_now_changed (what) { <TD><INPUT TYPE="checkbox" NAME="setuptax" VALUE="Y" <% $cgi->param('setuptax') ? 'CHECKED' : '' %>></TD> </TR> -<& /elements/tr-select-taxclass.html, 'curr_value' => $cgi->param('taxclass') &> +<& /elements/tr-select-taxclass.html, 'curr_value' => scalar($cgi->param('taxclass')) &> -<& /elements/tr-select-taxproduct.html, 'label' => emt('Tax product'), 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => $cgi->param('taxproductnum') &> +<& /elements/tr-select-taxproduct.html, 'label' => emt('Tax product'), 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => scalar($cgi->param('taxproductnum')) &> -<& /elements/tr-select-taxoverride.html, 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => $cgi->param('tax_override') &> +<& /elements/tr-select-taxoverride.html, 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => scalar($cgi->param('tax_override')) &> % } # if !$cust_pkg |