scalar cgi param

6 files changed, 13 insertions, 11 deletions

diff --git a/httemplate/edit/process/access_user.html b/httemplate/edit/process/access_user.html
index bbe4268be..54d2b0348 100644
--- a/httemplate/edit/process/access_user.html
+++ b/httemplate/edit/process/access_user.html
@@ -29,7 +29,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 ea2462aed..097a45d4f 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) {