FS/FS/Sales_Mixin.pm

   1 package FS::Sales_Mixin;
   2
   3 use strict;
   4 use FS::Record qw( qsearchs );
   5 use FS::sales;
   6
   7 =head1 NAME
   8
   9 FS::Agent_Mixin - Mixin class for objects that have an sales person.
  10
  11 =over 4
  12
  13 =item sales
  14
  15 Returns the sales person (see L<FS::sales>) for this object.
  16
  17 =cut
  18
  19 sub sales {
  20   my $self = shift;
  21   qsearchs( 'sales', { 'salesnum' => $self->salesnum } );
  22 }
  23
  24 =item salesperson
  25
  26 Returns the sales person name for this object, if any.
  27
  28 =cut
  29
  30 sub salesperson {
  31   my $self = shift;
  32   my $sales = $self->sales or return '';
  33   $sales->salesperson;
  34 }
  35
  36 =back
  37
  38 =head1 BUGS
  39
  40 =cut
  41
  42 1;
  43