=cut
sub table { 'cust_pkg'; }
-sub cust_linked { $_[0]->cust_main_custnum; }
+sub cust_linked { $_[0]->cust_main_custnum || $_[0]->custnum }
sub cust_unlinked_msg {
my $self = shift;
"WARNING: can't find cust_main.custnum ". $self->custnum.
return;
}
+# workaround for name conflict
+sub pkg_contact {
+ FS::contact_Mixin::contact(@_);
+}
+
=back
=head1 CLASS METHODS