diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-09-25 14:50:18 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-09-25 14:50:18 -0700 |
| commit | 8ab9d14a304aacdefd98e80c143132b10194d8c8 (patch) | |
| tree | 05b2979c4d30310f20c1fd416327cb69524097de /httemplate/misc | |
| parent | 809b7b5c08393a3cba0f7d8682eff3d72e4f4e32 (diff) | |
scalar cgi param
Diffstat (limited to 'httemplate/misc')
| -rw-r--r-- | httemplate/misc/email-customer-statement.html | 6 | ||||
| -rwxr-xr-x | httemplate/misc/process/link.cgi | 2 | ||||
| -rw-r--r-- | httemplate/misc/process/payment.cgi | 4 | ||||
| -rw-r--r-- | httemplate/misc/process/timeworked.html | 2 | ||||
| -rwxr-xr-x | httemplate/misc/unhold_pkg.html | 2 |
5 files changed, 8 insertions, 8 deletions
diff --git a/httemplate/misc/email-customer-statement.html b/httemplate/misc/email-customer-statement.html index c0ed88031..aa65b05db 100644 --- a/httemplate/misc/email-customer-statement.html +++ b/httemplate/misc/email-customer-statement.html @@ -28,9 +28,9 @@ my $alternate_form = sub { my $label = ucfirst($_); $label =~ s/_/ /; include('/elements/tr-input-date-field.html',{ - 'name' => $_, - 'value' => $cgi->param($_) || '', - 'label' => $label, + 'name' => $_, + 'value' => ( scalar($cgi->param($_)) || '' ), + 'label' => $label, 'noinit' => $noinit++ }); } diff --git a/httemplate/misc/process/link.cgi b/httemplate/misc/process/link.cgi index 77546f3f7..a3f9f3e32 100755 --- a/httemplate/misc/process/link.cgi +++ b/httemplate/misc/process/link.cgi @@ -30,7 +30,7 @@ unless ( $svcnum ) { my $svcdb = $part_svc->getfield('svcdb'); $cgi->param('link_field') =~ /^(\w+)$/; my $link_field = $1; - my %search = ( $link_field => $cgi->param('link_value') ); + my %search = ( $link_field => scalar($cgi->param('link_value')) ); if ( $cgi->param('link_field2') =~ /^(\w+)$/ ) { $search{$1} = $cgi->param('link_value2'); } diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi index dcfcc0b85..8c12b4d3c 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -175,12 +175,12 @@ if ( $cgi->param('save') ) { if ( $payby eq 'CARD' ) { my $bill_location = FS::cust_location->new; - $bill_location->set( $_ => $cgi->param($_) ) + $bill_location->set( $_ => scalar($cgi->param($_)) ) foreach @{$payby2fields{$payby}}; $new->set('bill_location' => $bill_location); # will do nothing if the fields are all unchanged } else { - $new->set( $_ => $cgi->param($_) ) foreach @{$payby2fields{$payby}}; + $new->set( $_ => scalar($cgi->param($_)) ) foreach @{$payby2fields{$payby}}; } my $error = $new->replace($cust_main); diff --git a/httemplate/misc/process/timeworked.html b/httemplate/misc/process/timeworked.html index 01752e1b7..aaccf056e 100644 --- a/httemplate/misc/process/timeworked.html +++ b/httemplate/misc/process/timeworked.html @@ -18,7 +18,7 @@ foreach my $transaction ( map { /^transactionid(\d+)$/; $1; } grep /^transactionid\d+$/, $cgi->param ) { my $s = "multiplier${transaction}_"; - my %multipliers = map { /^$s(\d+)$/; $1 => $cgi->param("$s$1"); } + my %multipliers = map { /^$s(\d+)$/; $1 => scalar($cgi->param("$s$1")); } grep /^$s\d+$/, $cgi->param; my $msum = 0; foreach(values %multipliers) {$msum += $_}; diff --git a/httemplate/misc/unhold_pkg.html b/httemplate/misc/unhold_pkg.html index 0c110b4f9..d7044cf11 100755 --- a/httemplate/misc/unhold_pkg.html +++ b/httemplate/misc/unhold_pkg.html @@ -42,7 +42,7 @@ <label for="when_date"> <% emt('On this date:') %> </label> <& /elements/input-date-field.html, { name => 'start_date', - value => $cgi->param('start_date'), + value => scalar($cgi->param('start_date')), } &> </LI> |