X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pkg.pm;h=b3ed2f29a54965a4196b2ba12cce1eb2f6124f58;hb=dc1891ff9a6e6c4b4545fe7f786af6bd0f28b2cf;hp=9d3083067d3b25f905a03816eb20eabf49c5c08d;hpb=4ba0408779a487dfe4004b34a5dd44a69650ba39;p=freeside.git diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 9d3083067..b3ed2f29a 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2195,10 +2195,13 @@ sub _labels_short { while ( @values ) { my $detail = "$label: "; $detail .= shift(@values). ', ' - while @values && length($detail.$values[0]) < 78; + while @values + && ( length($detail.$values[0]) < 78 || $detail eq "$label: " ); $detail =~ s/, $//; push @labels, $detail; } + warn "$me _labels_short done consolidating services\n" + if $DEBUG; } else { warn "$me _labels_short adding service data\n" if $DEBUG;