diff options
| -rw-r--r-- | FS/FS/svc_acct.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 7bcd0e7d2..9d14b84af 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -459,9 +459,12 @@ history records. sub label_long { my $self = shift; - ( $self->finger =~ /\S/ ) - ? $self->finger. ' <'.$self->label(@_).'>' - : $self->label(@_); + my $label = $self->label(@_); + my $finger = $self->finger; + return $label unless $finger =~ /\S/; + my $maxlen = 40 - length($label) - length($self->cust_svc->part_svc->svc); + $finger = substr($finger, 0, $maxlen-3).'...' if length($finger) > $maxlen; + "$finger <$label>"; } =item insert [ , OPTION => VALUE ... ] |