diff options
Diffstat (limited to 'httemplate/misc/process')
-rwxr-xr-x | httemplate/misc/process/link.cgi | 2 | ||||
-rw-r--r-- | httemplate/misc/process/payment.cgi | 2 | ||||
-rw-r--r-- | httemplate/misc/process/timeworked.html | 2 |
3 files changed, 3 insertions, 3 deletions
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 7768f921f..852becb9d 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -170,7 +170,7 @@ if ( (my $custpaybynum = scalar($cgi->param('custpaybynum'))) > 0 ) { my %saveopt; 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}}; $saveopt{'bill_location'} = $bill_location; $saveopt{'paycvv'} = $paycvv; # save_cust_payby contains conf logic for when to use this 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 += $_}; |