X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fdiscount.pm;h=0561f9ca0802fc9cf7f4f88eeecbcf65006c47b0;hb=9e7de7d0c00d79c9616c5584213a25e2ca41b5b3;hp=e66d78cedee4f6112283e52be316a617d20dea00;hpb=ec4ae54938488e037977066b28c6a325272b16fc;p=freeside.git diff --git a/FS/FS/discount.pm b/FS/FS/discount.pm index e66d78ced..0561f9ca0 100644 --- a/FS/FS/discount.pm +++ b/FS/FS/discount.pm @@ -2,8 +2,6 @@ package FS::discount; use base qw( FS::Record ); use strict; -use FS::Record qw( qsearch qsearchs ); -use FS::discount_class; =head1 NAME @@ -176,12 +174,12 @@ sub description_short { my $money_char = $conf->config('money_char') || '$'; my $desc = $self->name ? $self->name.': ' : ''; - $desc .= $money_char. sprintf('%.2f/month ', $self->amount) + $desc .= $money_char. sprintf('%.2f/month', $self->amount) if $self->amount > 0; ( my $percent = $self->percent ) =~ s/\.0+$//; $percent =~ s/(\.\d*[1-9])0+$/$1/; - $desc .= $percent. '% ' + $desc .= $percent. '%' if $self->percent > 0; $desc; @@ -206,12 +204,6 @@ sub classname { $discount_class ? $discount_class->classname : '(none)'; } -sub discount_class { - my $self = shift; - qsearchs('discount_class', { 'classnum' => $self->classnum }); -} - - =back =head1 BUGS