$record = create FS::part_pkg \%hash
$record = create FS::part_pkg { 'column' => 'value' };
+ $custom_record = $template_record->clone;
+
$error = $record->insert;
$error = $new_record->replace($old_record);
$proto->new('part_pkg',$hashref);
}
+=item clone
+
+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 FS::part_pkg ( \%hash ); # ?
+}
+
=item insert
Adds this billing item definition to the database. If there is an error,
=back
+=head1 VERSION
+
+$Id: part_pkg.pm,v 1.3 1998-11-15 13:00:15 ivan Exp $
+
=head1 BUGS
It doesn't properly override FS::Record yet.
pod ivan@sisd.com 98-sep-21
+$Log: part_pkg.pm,v $
+Revision 1.3 1998-11-15 13:00:15 ivan
+bugfix in clone method, clone method doc clarification
+
+
=cut
1;