X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fdiscount.pm;h=8afeb2e0c06b4935a896feb12698553804ce4e7d;hp=6771510d0c249c415e2adfe62b943e0afb012cd6;hb=ad7f49821d40ffd099a45acc32ba91e0e211aede;hpb=4cacb3fa439b56fc7c9a742b69ec3f6ffd660433

diff --git a/FS/FS/discount.pm b/FS/FS/discount.pm
index 6771510d0..8afeb2e0c 100644
--- a/FS/FS/discount.pm
+++ b/FS/FS/discount.pm
@@ -113,6 +113,16 @@ and replace methods.
 sub check {
   my $self = shift;
 
+  if ( $self->_type eq 'Select discount type' ) {
+    return 'Please select a discount type';
+  } elsif ( $self->_type eq 'Amount' ) {
+    $self->percent('0');
+    return 'Amount must be greater than 0' unless $self->amount > 0;
+  } elsif ( $self->_type eq 'Percentage' ) {
+    $self->amount('0.00');
+    return 'Percentage must be greater than 0' unless $self->percent > 0;
+  }
+
   my $error = 
     $self->ut_numbern('discountnum')
     || $self->ut_textn('name')