X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_event.html;fp=httemplate%2Fedit%2Fprocess%2Fpart_event.html;h=6c6249cc173c0aabf1d1fc680c0cfe578b8d6b48;hp=0293af8863eebc43cc8616c8ace46b501765e91f;hb=fe58901b811f0ab26e8f93a9563fb93bc98e4c19;hpb=26484e261d7a6bd833d041b417b60e63db19edf7

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;
       }