diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/ClientAPI/MasonComponent.pm | 1 | ||||
| -rw-r--r-- | FS/FS/part_pkg.pm | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/MasonComponent.pm b/FS/FS/ClientAPI/MasonComponent.pm index c4094ffe0..8a31185bd 100644 --- a/FS/FS/ClientAPI/MasonComponent.pm +++ b/FS/FS/ClientAPI/MasonComponent.pm @@ -99,6 +99,7 @@ my %session_callbacks = ( my %args = @$argsref; $args{part_pkg} = \@part_pkg; $args{first_svc} = \@first_svc; + $args{no_comment} = 1; @$argsref = ( %args ); return ''; #no error diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 2cccce051..c908c917e 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -784,6 +784,11 @@ sub custom_comment { $price_info; } +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 |