X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fdiscount.pm;h=88cbdd41cba75d4c1d2e499c749d262ec13d8fc5;hp=6fc3391caec21acffc19e5af8a1bd4d0fd2bdd06;hb=5c59829b853cf3fdce42b45e57192fd8ca30dd65;hpb=a58af29105ebefb04c0abbcee6d392446fff9eb0 diff --git a/FS/FS/discount.pm b/FS/FS/discount.pm index 6fc3391ca..88cbdd41c 100644 --- a/FS/FS/discount.pm +++ b/FS/FS/discount.pm @@ -172,7 +172,10 @@ sub description_short { my $desc = $self->name ? $self->name.': ' : ''; $desc .= $money_char. sprintf('%.2f/month ', $self->amount) if $self->amount > 0; - $desc .= $self->percent. '% ' + + ( my $percent = $self->percent ) =~ s/\.0+$//; + $percent =~ s/(\.\d*[1-9])0+$/$1/; + $desc .= $percent. '% ' if $self->percent > 0; $desc; @@ -181,8 +184,13 @@ sub description_short { sub description { my $self = shift; my $desc = $self->description_short; - $desc .= ' for '. $self->months. ' months' if $self->months; + + ( my $months = $self->months ) =~ s/\.0+$//; + $months =~ s/(\.\d*[1-9])0+$/$1/; + $desc .= " for $months months" if $months; + $desc .= ', applies to setup' if $self->setup; + $desc; }