-my $error;
-foreach my $pkgpart (@pkgparts) {
- my $part_pkg = FS::part_pkg->by_key($pkgpart);
- my %options = ( $part_pkg->options, %changes );
- $error ||= $part_pkg->replace( options => \%options );
+if ($cgi->param('pricing')) {
+ my $setup_fee_increase = $cgi->param('setup_fee_increase');
+ my $recurring_fee_increase = $cgi->param('recurring_fee_increase');
+
+ foreach my $pkgpart (@pkgparts) {
+ my $part_pkg = FS::part_pkg->by_key($pkgpart);
+ my %options = $part_pkg->options;
+ if ($recurring_fee_increase) {
+ $options{'recur_fee'} = $options{'recur_fee'} + ($options{'recur_fee'} * ($recurring_fee_increase / 100));
+ }
+ if ($setup_fee_increase) {
+ $options{'setup_fee'} = $options{'setup_fee'} + ($options{'setup_fee'} * ($setup_fee_increase / 100));
+ }
+ $error ||= $part_pkg->replace( options => \%options );
+ }