diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-08-25 21:06:41 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-25 21:06:41 -0700 |
commit | a9e0bcdce308177b619f1490f58a608f49a69e90 (patch) | |
tree | 9fb4cba7cda58fb8c685c64dd67ac4d890ce5170 /FS/FS/sales_pkg_class.pm | |
parent | 3ea60431d09fb8d3b7e7bf47ec6357384b0d27db (diff) |
continue sales person work: customer and package selection, commissions, reporting. RT#23402
Diffstat (limited to 'FS/FS/sales_pkg_class.pm')
-rw-r--r-- | FS/FS/sales_pkg_class.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/FS/FS/sales_pkg_class.pm b/FS/FS/sales_pkg_class.pm index 0fb7e86..90867a8 100644 --- a/FS/FS/sales_pkg_class.pm +++ b/FS/FS/sales_pkg_class.pm @@ -2,7 +2,7 @@ package FS::sales_pkg_class; use base qw( FS::Record ); use strict; -#use FS::Record qw( qsearch qsearchs ); +use FS::Record qw( qsearchs ); # qsearch qsearchs ); use FS::sales; use FS::pkg_class; @@ -110,6 +110,17 @@ sub check { $self->SUPER::check; } +sub pkg_class { + my $self = shift; + qsearchs('pkg_class', { '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 |