diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-08-17 23:19:19 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-17 23:19:19 -0700 |
commit | 5f2093d63b321716766535a0ff3e7420882a8888 (patch) | |
tree | ebcaed28a5b818c945b3f75b64ac7c0a19fd3072 /FS/FS/Sales_Mixin.pm | |
parent | d5fa12d1022afb592e80803971e90d18eac414e0 (diff) |
continue sales person work: customer and package selection, commissions, reporting. RT#23402
Diffstat (limited to 'FS/FS/Sales_Mixin.pm')
-rw-r--r-- | FS/FS/Sales_Mixin.pm | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/FS/FS/Sales_Mixin.pm b/FS/FS/Sales_Mixin.pm new file mode 100644 index 0000000..3b30ac9 --- /dev/null +++ b/FS/FS/Sales_Mixin.pm @@ -0,0 +1,43 @@ +package FS::Sales_Mixin; + +use strict; +use FS::Record qw( qsearchs ); +use FS::sales; + +=head1 NAME + +FS::Agent_Mixin - Mixin class for objects that have an sales person. + +=over 4 + +=item sales + +Returns the sales person (see L<FS::sales>) for this object. + +=cut + +sub sales { + my $self = shift; + qsearchs( 'sales', { 'salesnum' => $self->salesnum } ); +} + +=item salesperson + +Returns the sales person name for this object, if any. + +=cut + +sub salesperson { + my $self = shift; + my $sales = $self->sales or return ''; + $sales->salesperson; +} + +=back + +=head1 BUGS + +=cut + +1; + |