From 8a0204b4a129a3c26dcca18ba401b2de26d22d2b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 5 Feb 2010 02:39:31 +0000
Subject: discounts, RT#6679

---
 FS/FS/discount.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'FS/FS/discount.pm')

diff --git a/FS/FS/discount.pm b/FS/FS/discount.pm
index 6771510..8afeb2e 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')
-- 
cgit v1.1