X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI%2FMasonComponent.pm;h=d615c271c52a2906b8e141bf54ee11e6c3fa2bab;hb=e2ee874843b19f6c5221f5ce0af90979dba34e57;hp=8a513543c649e805cad461b5fa6c7d1972d0842b;hpb=7cc964155e62890ecaf6bc669eca185e1558cb46;p=freeside.git

diff --git a/FS/FS/ClientAPI/MasonComponent.pm b/FS/FS/ClientAPI/MasonComponent.pm
index 8a513543c..d615c271c 100644
--- a/FS/FS/ClientAPI/MasonComponent.pm
+++ b/FS/FS/ClientAPI/MasonComponent.pm
@@ -63,6 +63,7 @@ my %session_callbacks = (
       'process-skip_first' => $conf->exists('selfservice_process-skip_first'),
       'num_payments'       => scalar($cust_main->cust_pay), 
       'surcharge_percentage' => scalar($conf->config('credit-card-surcharge-percentage', $cust_main->agentnum)),
+      'surcharge_flatfee'  => scalar($conf->config('credit-card-surcharge-flatfee', $cust_main->agentnum)),
     );
     @$argsref = ( %args );
 
@@ -100,10 +101,7 @@ my %session_callbacks = (
       }
     }
 
-use Data::Dumper;
-warn Dumper $argsref;
     my %args = @$argsref;
-warn Dumper \%args;
     $args{part_pkg} = \@part_pkg;
     $args{first_svc} = \@first_svc;
     $args{no_comment} = 1;
@@ -140,8 +138,6 @@ my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf);
 
 sub mason_comp {
   my $packet = shift;
-use Data::Dumper;
-warn Dumper($packet);
 
   warn "$me mason_comp called on $packet\n" if $DEBUG;