diff options
author | Mark Wells <mark@freeside.biz> | 2015-03-13 15:24:09 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-03-13 15:24:09 -0700 |
commit | ed741d82e6ef8b2c66985f6b54d5cb26e0a70acb (patch) | |
tree | c22fd88a977c369da77cfccb78172d747c49a56d /FS/FS/agent_pkg_class.pm | |
parent | 8e50b6f6fbaa9d732a371114c0dfc95c326cb890 (diff) |
restructure agent commission reporting, #23348
Diffstat (limited to 'FS/FS/agent_pkg_class.pm')
-rw-r--r-- | FS/FS/agent_pkg_class.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/FS/FS/agent_pkg_class.pm b/FS/FS/agent_pkg_class.pm index 5c5c3f7..2a2f5db 100644 --- a/FS/FS/agent_pkg_class.pm +++ b/FS/FS/agent_pkg_class.pm @@ -1,5 +1,5 @@ package FS::agent_pkg_class; -use base qw( FS::Record ); +use base qw( FS::Commission_Mixin FS::Record ); use strict; #use FS::Record qw( qsearch qsearchs ); @@ -105,6 +105,24 @@ sub check { $self->SUPER::check; } +sub cust_credit_search { + my $self = shift; + my $agent = $self->agent; + $agent->cust_credit_search(@_, commission_classnum => $self->classnum); +} + +sub cust_bill_pkg_search { + my $self = shift; + my $agent = $self->agent; + $agent->cust_bill_pkg_search(@_, classnum => $self->classnum); +} + +sub classname { + my $self = shift; + my $pkg_class = $self->pkg_class; + $pkg_class ? $pkg_class->classname : '(no package class)'; +} + =back =head1 BUGS |