blob: 3b30ac978d4d5402ca09fd2c89d99dd76e6a7cd4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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;
|