/misc/phonenums.cgi
/misc/states.cgi
/misc/counties.cgi
+ /misc/cities.cgi
/misc/svc_acct-domains.cgi
/misc/part_svc-columns.cgi
/edit/elements/svc_forward.html
'process-display' => scalar($conf->config('selfservice_process-display')),
'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')),
+ 'surcharge_percentage' => scalar($conf->config('credit-card-surcharge-percentage', $cust_main->agentnum)),
);
@$argsref = ( %args );
}
}
+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;
sub mason_comp {
my $packet = shift;
+use Data::Dumper;
+warn Dumper($packet);
warn "$me mason_comp called on $packet\n" if $DEBUG;