RT# 39340 - created access to payment only via ip address, fixes security by creating...
[freeside.git] / 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;