From: ivan <ivan>
Date: Sat, 11 Oct 2008 00:32:56 +0000 (+0000)
Subject: backport part_pkg::pkg_comment in order to enable suspension notices to an administra... 
X-Git-Tag: freeside_1_7_4rc1~164
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=e5162f2d9dfaab3935211e12b860a0484c563196;p=freeside.git

backport part_pkg::pkg_comment in order to enable suspension notices to an administrator, RT#4083
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 6ff1fbb9c..66ac79c4b 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -475,6 +475,22 @@ sub check {
   '';
 }
 
+=item pkg_comment
+
+Returns an (internal) string representing this package.  Currently,
+"pkgpart: pkg - comment", is returned.  "pkg - comment" may be returned in the
+future, omitting pkgpart.
+
+=cut
+
+sub pkg_comment {
+  my $self = shift;
+
+  #$self->pkg. ' - '. $self->comment;
+  #$self->pkg. ' ('. $self->comment. ')';
+  $self->pkgpart. ': '. $self->pkg. ' - '. $self->comment;
+}
+
 =item pkg_class
 
 Returns the package class, as an FS::pkg_class object, or the empty string