($price_info || 'No charge');
}
+sub pkg_price_info {
+ my $self = shift;
+ $self->pkg. ' - '. ($self->price_info || 'No charge');
+}
+
=item pkg_class
Returns the package class, as an FS::pkg_class object, or the empty string
my @options = ();
push @options, '' unless $opt{'disable_empty'};
push @options, map $pkgpart_svcpart{ $_->pkgpart }, @part_pkg;
+my $label_method = $opt{no_comment} ? 'pkg_price_info' : 'pkg_comment' ;
my %labels = ( '' => ( $opt{'empty_label'} || '(none)' ),
- map { $pkgpart_svcpart{ $_->pkgpart } => $_->pkg_comment }
+ map { $pkgpart_svcpart{ $_->pkgpart } => $_->$label_method() }
@part_pkg
);