package categories (meta package classes) and grouping invoices by them

[freeside.git] / httemplate / edit / part_pkg.cgi

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index 032970c..d10a09a 100755 (executable)
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -210,13 +210,14 @@ my $new_object_callback = sub {
     $part_pkg = $clone_part_pkg->clone;
     $part_pkg->disabled('Y');
     %options = $clone_part_pkg->options;
+    $part_pkg->set($_ => $options{$_})
+      foreach (qw( setup_fee recur_fee ));
   } else {
     $part_pkg = FS::part_pkg->new( $hashref );
+    $part_pkg->set($_ => '0')
+      foreach (qw( setup_fee recur_fee ));
   }
 
-  $part_pkg->set($_ => '0')
-    foreach (qw( setup_fee recur_fee ));
-
   $part_pkg;
 
 };