fix setup/recur fees on cloning (customizing) package definitions w/new editor
authorivan <ivan>
Wed, 18 Jun 2008 19:09:28 +0000 (19:09 +0000)
committerivan <ivan>
Wed, 18 Jun 2008 19:09:28 +0000 (19:09 +0000)
httemplate/edit/part_pkg.cgi

index d9dcaa8..3e0a354 100755 (executable)
@@ -210,6 +210,8 @@ my $new_object_callback = sub {
     $part_pkg = $clone_part_pkg->clone;
     $part_pkg->disabled('Y');
     %options = $clone_part_pkg->options;
+    $part_pkg->set($_ => $option{$_})
+      foreach (qw( setup_fee recur_fee ));
   } else {
     $part_pkg = FS::part_pkg->new( $hashref );
     $part_pkg->set($_ => '0')