X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fdiscount.pm;h=361e0b4b2e63a6d11c26f4a33523a58f2d47d93c;hb=ee2d87613c1720cdf4f97e2ee0dcc1f8dfa781ff;hp=e66d78cedee4f6112283e52be316a617d20dea00;hpb=df1ebf662a9fc3f89503036e0dbf6833c1b95f9e;p=freeside.git

diff --git a/FS/FS/discount.pm b/FS/FS/discount.pm
index e66d78ced..361e0b4b2 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
 
@@ -175,13 +173,18 @@ sub description_short {
   my $conf = new FS::Conf;
   my $money_char = $conf->config('money_char') || '$';  
 
-  my $desc = $self->name ? $self->name.': ' : '';
-  $desc .= $money_char. sprintf('%.2f/month ', $self->amount)
+  my $desc;
+  if ( $self->name ) {
+    $desc = $self->name . ': ';
+  } else {
+    $desc = 'Discount of ';
+  }
+  $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 +209,6 @@ sub classname {
   $discount_class ? $discount_class->classname : '(none)';
 }
 
-sub discount_class {
-  my $self = shift;
-  qsearchs('discount_class', { 'classnum' => $self->classnum });
-}
-
-
 =back
 
 =head1 BUGS