FS/FS/Quotable_Mixin.pm

   1 package FS::Quotable_Mixin;
   2
   3 use strict;
   4 use FS::Record qw( qsearch ); #qsearchs );
   5 use FS::quotation;
   6
   7 sub quotation {
   8   my $self = shift;
   9   my $pk = $self->primary_key;
  10   qsearch('quotation', { $pk => $self->$pk() } );
  11 }
  12
  13 1;