diff options
author | ivan <ivan> | 2010-01-30 08:55:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-01-30 08:55:12 +0000 |
commit | 2d5f9e43a60773a9b079e96c330cb9e0e089800a (patch) | |
tree | 999756a0c9f3b1f6db2347925091f7e6d0e54ce5 /FS/FS/cust_pkg_discount.pm | |
parent | 76722f634186b9e6f164640700029e6f1bee5722 (diff) |
discounts, RT#6679
Diffstat (limited to 'FS/FS/cust_pkg_discount.pm')
-rw-r--r-- | FS/FS/cust_pkg_discount.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg_discount.pm b/FS/FS/cust_pkg_discount.pm index 76118ad..87f8c52 100644 --- a/FS/FS/cust_pkg_discount.pm +++ b/FS/FS/cust_pkg_discount.pm @@ -2,7 +2,7 @@ package FS::cust_pkg_discount; use strict; use base qw( FS::Record ); -use FS::Record; # qw( qsearch qsearchs ); +use FS::Record qw( qsearchs ); # qsearch ); use FS::cust_pkg; use FS::discount; @@ -131,6 +131,24 @@ sub check { $self->SUPER::check; } +=item cust_pkg + +=cut + +sub cust_pkg { + my $self = shift; + qsearchs('cust_pkg', { 'pkgnum' => $self->pkgnum } ); +} + +=item discount + +=cut + +sub discount { + my $self = shift; + qsearchs('discount', { 'discountnum' => $self->discountnum } ); +} + =back =head1 BUGS |