[freeside-commits] freeside/FS/FS part_pkg.pm,1.56.2.7,1.56.2.8

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv8114

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	part_pkg.pm 
Log Message:
backport part_pkg::pkg_comment in order to enable suspension notices to an administrator, RT#4083

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.56.2.7
retrieving revision 1.56.2.8
diff -u -d -r1.56.2.7 -r1.56.2.8
--- part_pkg.pm	9 Jul 2008 20:37:20 -0000	1.56.2.7
+++ part_pkg.pm	11 Oct 2008 00:32:56 -0000	1.56.2.8
@@ -475,6 +475,22 @@
   '';
 }
 
+=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