X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=site_perl%2Fpart_pkg.pm;h=4643b9f1581e6dc1dfe7a812113c346f646f12f8;hb=a67a7db7639773372f10b5d831f15a81b945d4c5;hp=7434a9b24a6ef854aae0b2a75d9e367c4980dbb9;hpb=1a354432763a3e699999b81402c42a12a347c10e;p=freeside.git

diff --git a/site_perl/part_pkg.pm b/site_perl/part_pkg.pm
index 7434a9b24..4643b9f15 100644
--- a/site_perl/part_pkg.pm
+++ b/site_perl/part_pkg.pm
@@ -80,15 +80,17 @@ sub create {
 
 Creates a new billing item definition by duplicating an existing definition.
 A new pkgpart is assigned and "(CUSTOM) " is prepended to the comment field.
+To add the billing item definition to the database, see L<"insert">.
 
 =cut
 
 sub clone {
   my $self = shift;
   my %hash = $self->hash;
+  $hash{'pkgpart'} = '';
   $hash{'comment'} = "(CUSTOM) ". $hash{'comment'}
     unless $hash{'comment'} =~ /^\(CUSTOM\) /;
-  create ( { $self->hash } );
+  create FS::part_pkg ( \%hash ); # ?
 }
 
 =item insert
@@ -161,7 +163,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: part_pkg.pm,v 1.2 1998-11-15 09:08:15 ivan Exp $
+$Id: part_pkg.pm,v 1.3 1998-11-15 13:00:15 ivan Exp $
 
 =head1 BUGS
 
@@ -184,8 +186,8 @@ ivan@sisd.com 97-dec-5
 pod ivan@sisd.com 98-sep-21
 
 $Log: part_pkg.pm,v $
-Revision 1.2  1998-11-15 09:08:15  ivan
-added clone method to support per-customer pricing
+Revision 1.3  1998-11-15 13:00:15  ivan
+bugfix in clone method, clone method doc clarification
 
 
 =cut