+ if ( $opt_e ) {
+ my %hash = (
+ 'pkgpart' => $part_pkg->pkgpart,
+ 'optionname' => 'setup_fee',
+ );
+
+ my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
+
+ if ( $part_pkg_option ) {
+ $part_pkg_option->optionvalue(
+ sprintf('%.2f', $part_pkg_option->optionvalue * $opt_e)
+ );
+ my $error = $part_pkg_option->replace;
+ die $error if $error;
+ }
+ }
+
+ if ( $opt_u ) {
+ my %hash = (
+ 'pkgpart' => $part_pkg->pkgpart,
+ 'optionname' => 'recur_fee',
+ );
+
+ my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
+
+ if ( $part_pkg_option ) {
+ $part_pkg_option->optionvalue(
+ sprintf('%.2f', $part_pkg_option->optionvalue * $opt_u)
+ );
+ my $error = $part_pkg_option->replace;
+ die $error if $error;
+ }
+ }
+