s helps alot

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