From 67c6b2d956295e851335567da679230d818e73ab Mon Sep 17 00:00:00 2001 From: levinse Date: Sat, 12 Feb 2011 05:03:58 +0000 Subject: [PATCH] show package pricing details on customer view, RT11372 --- FS/FS/part_pkg.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 140bd9b14..451681612 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -537,6 +537,10 @@ sub pkg_comment { $pre. $self->pkg. ' - '. $self->custom_comment; } +sub price_info { # safety, in case a part_pkg hasn't defined price_info + ''; +} + sub custom_comment { my $self = shift; ( $self->custom ? '(CUSTOM) ' : '' ). $self->comment . ' ' . $self->price_info; -- 2.11.0