=cut
sub part_svc_link {
- my( $self, %opt ) = @_;
-
- my $agentnum = $self->agentnum;
-
- qsearch({ 'table' => 'part_svc_link',
- 'hashref' => \%opt,
- 'extra_sql' =>
- $agentnum
- ? "AND ( agentnum IS NULL OR agentnum = $agentnum )"
- : 'AND agentnum IS NULL',
- });
+ FS::part_svc_link->by_agentnum( shift->agentnum, @_ );
}
=item supersede OLD [, OPTION => VALUE ... ]
my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
split("\n", $self->get('plandata') );
return $plandata{$opt} if exists $plandata{$opt};
+
+ # check whether the option is defined in plan info (if so, don't warn)
+ if (exists $plans{ $self->plan }->{fields}->{$opt}) {
+ return '';
+ }
cluck "WARNING: (pkgpart ". $self->pkgpart. ") Package def option $opt ".
"not found in options or plandata!\n"
unless $ornull;