projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
FS
/
FS
/
quotation_pkg_discount.pm
diff --git
a/FS/FS/quotation_pkg_discount.pm
b/FS/FS/quotation_pkg_discount.pm
index
633308c
..
4389db2
100644
(file)
--- a/
FS/FS/quotation_pkg_discount.pm
+++ b/
FS/FS/quotation_pkg_discount.pm
@@
-1,5
+1,6
@@
package FS::quotation_pkg_discount;
package FS::quotation_pkg_discount;
-use base qw( FS::Record );
+
+use base qw( FS::pkg_discount_Mixin FS::Record );
use FS::Maketext 'mt'; # XXX not really correct
use strict;
use FS::Maketext 'mt'; # XXX not really correct
use strict;
@@
-78,27
+79,15
@@
sub table { 'quotation_pkg_discount'; }
Adds this record to the database. If there is an error, returns the error,
otherwise returns false.
Adds this record to the database. If there is an error, returns the error,
otherwise returns false.
-=cut
-
-# the insert method can be inherited from FS::Record
-
=item delete
Delete this record from the database.
=item delete
Delete this record from the database.
-=cut
-
-# the delete method can be inherited from FS::Record
-
=item replace OLD_RECORD
Replaces the OLD_RECORD with this one in the database. If there is an error,
returns the error, otherwise returns false.
=item replace OLD_RECORD
Replaces the OLD_RECORD with this one in the database. If there is an error,
returns the error, otherwise returns false.
-=cut
-
-# the replace method can be inherited from FS::Record
-
=item check
Checks all fields to make sure this is a valid quotation package discount.
=item check
Checks all fields to make sure this is a valid quotation package discount.
@@
-127,18
+116,6
@@
sub check {
=back
=back
-=item amount
-
-Returns the total amount of this discount (setup + recur), for compatibility
-with L<FS::cust_bill_pkg_discount>.
-
-=cut
-
-sub amount {
- my $self = shift;
- return $self->get('setup_amount') + $self->get('recur_amount');
-}
-
=item description
Returns a string describing the discount (for use on the quotation).
=item description
Returns a string describing the discount (for use on the quotation).